如何将Perl对象转换为JSON,反之亦然

use JSON;

my $perl_object = {
    name => 'John',
    age => 30,
    hobbies => ['reading', 'coding', 'gaming']
};

my $json_string = encode_json($perl_object);
print $json_string;

{"name":"John","age":30,"hobbies":["reading","coding","gaming"]}

use JSON;

my $json_string = '{"name":"John","age":30,"hobbies":["reading","coding","gaming"]}';

my $perl_object = decode_json($json_string);
print $perl_object->{name};  # 输出 John
print $perl_object->{age};   # 输出 30
print $perl_object->{hobbies}[0];  # 输出 reading