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);
検索
コメントありがとうございます。 サービス終了した今なら、安く中古が手に入りそ…