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);
検索

なぜか質問を投稿すると反映されない。。 何かしら問題があってはじかれている??