在 Perl 中使用 JSON

在Perl中，你可以使用 JSON 模块来处理 JSON 数据。以下是使用 JSON 模块的基本示例：

1. 安装 JSON 模块：

首先，确保你已经安装了 JSON 模块。你可以使用 cpan 工具安装它：

cpan JSON

2. 将 Perl 数据结构转换为 JSON 字符串：

use JSON;

# 创建 Perl 哈希引用（hash reference）
my $data = {
    name => "John",
    age  => 30,
    city => "New York"
};

# 将 Perl 数据结构转换为 JSON 字符串
my $jsonString = encode_json($data);

# 输出 JSON 字符串
print $jsonString;

3. 将 JSON 字符串转换为 Perl 数据结构：

use JSON;

# JSON 字符串
my $jsonString = '{"name":"John","age":30,"city":"New York"}';

# 将 JSON 字符串转换为 Perl 数据结构
my $data = decode_json($jsonString);

# 输出 Perl 数据结构
use Data::Dumper;
print Dumper($data);

在这个示例中，encode_json() 函数用于将 Perl 数据结构（哈希引用）转换为 JSON 字符串，而 decode_json() 函数用于将 JSON 字符串转换为 Perl 数据结构。

4. 处理嵌套结构：

use JSON;

# 创建 Perl 数据结构，包含嵌套结构
my $data = {
    name    => "John",
    age     => 30,
    address => {
        street => "123 Main St",
        city   => "New York"
    }
};

# 将 Perl 数据结构转换为 JSON 字符串
my $jsonString = encode_json($data);

# 输出 JSON 字符串
print $jsonString;

# 将 JSON 字符串转换为 Perl 数据结构
my $parsedData = decode_json($jsonString);

# 输出 Perl 数据结构
use Data::Dumper;
print Dumper($parsedData);

这样，你就可以在Perl中使用 JSON 模块方便地处理 JSON 数据，适用于与其他系统进行数据交换、处理 API 响应等场景。

转载请注明出处：http://www.pingtaimeng.com/article/detail/4526/JSON