JSON.pm

概要

JSON.pm は、Perl で JSON 形式を扱う際に便利なモジュールです。
インストールは通常の CPAN のインストールでＯＫです。

使用方法

以下、使用例です。
基本的には、Perl のハッシュを to_json に渡せばＯＫです。

 use JSON;
 use Encode;
 
 my $result = { data1 => $data1,
                data2 => \@data2,
                data3 => Encode::decode_utf8('テスト１') ),
              };
 print $self->header(-type => 'text/x-json'),
 to_json($result, { utf8 => 1 });

データ内に日本語を含む場合には注意が必要です。
JSON.pm では、エンコーディングは UTF-8 である必要があります。
さらに、utf-8フラグが付いている必要がありますので、上記の例の data3 のように、明示的に decode_utf8 で utf-8 フラグを付ける必要があります。