PerlのJSON化で、文字化けが起きてしまう

Question

環境

• Perl 5.8
• EUC-JP

Perlで、をJSONを作成し連想配列又は、配列に格納すると文字化けしてしまうみたいです。

my %program = (
    '備考' => ほげほげ,
);

my $json = JSON->new->utf8(0)->encode(\program);
print $json;
# JSONになっている
# {"備考":"ほげほげ"}

my %hash = (
    'JSON' => $json,
);

print Dumper %hash;
# 文字化けする
# "{\"\x{c8}\x{f7}\x{b9}\x{cd}\":\"\x{a4}\x{db}\x{a4}\x{b2}\x{a4}\x{db}\x{a4}\x{b2}\"}"

扱う文字コードはEUC-JPです。
utf8ふらぐあたりの関係かなと思って、色々encode/decodeしてみましたが、うまくいきませんでした。
この問題、ご存知のかたいらっしゃいますでしょうか？

Answer 1

もしも、utf8フラグがついていない文字列の値をJSONへ変換したいのであれば、

use JSON;
my %hash = ("msg" => "ほげほげ");
my $json_str = to_json(\%hash);

のようにすればうまくいきます。
JSONパッケージの encode/decode はutf8フラグが付いている文字列に対して使用する関数で、
フラグなしは、to_json/from_json を使用します。

Comments

[退会済みユーザー]

やはり$json_strをハッシュに格納すると文字化けしてしまいます。

```lang-perl
my %hash = (
'JSON' => $json,
);
```

[circus55]

あ・・・これは申し訳ない。
Dumperで日本語がエスケープされているのが問題だったのですね

$Data::Dumper::Useperl = 1;

と一行入れて出力してみてください。
デフォルトではDumperの設定で日本語がエスケープされて出力されてしまうのです。

[circus55]

もしもutf8フラグが付いているソースであるなら、上記の一行に加えて、

{
package Data::Dumper;
sub qquote { return shift; }
}

これも追加してみてください。
※ フラグがないならあってもなくてもOKです

[退会済みユーザー]

すいません。
ありがとうございます！

JSONだと日本語がエスケープされてしまうのですね。

これとは別件で、DBに格納時に文字化けしていたので、JSONの変換がうまく行っていないと勘違いしておりました。