ワイズリマインダー

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

コメントは受け付けていません。