Perl_JSON

from_to.pl

use JSON;
use Encode 'from_to';

# 假设$json是GBK编码的
my $json = '{"test" : "我是GBK编码的哦"}';

from_to($json, 'GBK', 'UTF-8');

my $data = decode_json($json);

header.pl

use utf8;
use Encode;

Perl_JSON_decode.pl

my $array = decode_json($json_out);

Perl_JSON_encode.pl

use JSON qw/encode_json decode_json/;
my $data = [
    {
        'name' => 'Ken',
        'age' => 19
    },
    {
        'name' => 'Ken',
        'age' => 25
    }
];
my $json_out = encode_json($data);