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);
検索
最近のコメント
最近の投稿
タグ
フィード配信
アーカイブ
外部リンク
登録出来たので単に登録出来てなかっただけの模様。。 改めて登録します。