JSONのエンコード
utf8で文字化けが発生する場合、
変換する前に Encode::decode_utf8 をしておく。
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);
コメントありがとうございます。 皆様のコメントのおかげで更新が頑張れます。 これ…