環境
- Perl 5.8
- MySQL
- 文字コード EUC-JP
Perlで、DBI経由でmediumtextのカラムにJSONを格納しようとしています。
しかし、文字化けが発生してしまいます。
lang
1print $ref->{'json'}; 2# 出力 3# '{"備考":"ほげほげ"}' 4 5if ($ref->{'json'} eq '{"備考":"ほげほげ"}') { 6 print "同一である"; 7} 8# 出力 9#同一である
ここで、DBIに$ref->{'json'}を渡すと文字化けしてしまいます。
しかし、変数に格納せずに直接、'{"備考":"ほげほげ"}'を渡すと文字化けせずに挿入されます。
JSONを作成時には、JSON::to_jsonを使用しています。
ご存知のかた、よろしくお願い致します。
回答4件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/07/02 12:49