Perl/日本語処理/JSONで日本語を扱うの変更点

追加された行はこの色です。
削除された行はこの色です。
Perl/日本語処理/JSONで日本語を扱うへ行く。
Perl/日本語処理/JSONで日本語を扱うの差分を削除

* JSONで日本語を扱う [#h0dc51e5]

 use JSON;
 
 $text = '日本語';                                  # JSON化したい文字列は、文字コードがEUC-JPでUTF8フラグ無しとする
 $text =  Encode::decode('EUC-JP', $text);          # JSON化する前に、UTF8フラグ有りにしなければならない
 $json = to_json( [ $text, $text ], { utf8 => 1 } );# utf8 => 1 によって、$jsonは文字コードがUTF8でUTFフラグ無しになる
                                                    # utf8 => 0 だと、$jsonは文字コードがUTF8でUTF8フラグ有りになる
 Encode::from_to($json,'UTF8','EUC-JP');            # 文字コードをUTF8からEUC-JPに戻す
 print "$json\n";

** 参考 [#h72cd146]
http://kawa.at.webry.info/200801/article_6.html