JSONのエンコード
utf8で文字化けが発生する場合、
変換する前に Encode::decode_utf8 をしておく。
1 2 3 4 5 6 7 8 9 10 11 | my $hoge ={ 'foo' => 'フー' , 'bar' => 'バー' , }; foreach my $Key ( keys %{ $hoge }){ $hoge ->{ $Key }=Encode::decode_utf8( $hoge ->{ $Key }); } use JSON qw/encode_json/ ; print Content-Type:application/json; charset=utf-8n"; print encode_json( $hoge ); |
検索
コメントありがとうございます。 サービス終了した今なら、安く中古が手に入りそ…