Data::Recursive::Encode で再帰的に encode/decode する

tag

最近、009 をまたみなおしている tokuhirom です。こんにちは。

さて、複雑なデータ構造にはいった文字列を decode/encode したい場合、いちいちやるのは存外めんどくさいものです。

そんなときには Data::Recursive::Encode をつかうといいでしょう。一発で、complex data structure にはいった data の encode/decode をやることができます。

    use Data::Recursive::Encode;

    Data::Recursive::Encode->decode( 'euc-jp', $data );
    Data::Recursive::Encode->encode( 'euc-jp', $data );
    Data::Recursive::Encode->decode_utf8($data);
    Data::Recursive::Encode->encode_utf8($data);

Enjoy!

POD ERRORS

Hey! The above document had some coding errors, which are explained below:

Around line 3:: Non-ASCII character seen before =encoding in '最近、009'. Assuming CP1252