Perl 中解析和处理 JSON 数据52

JSON（JavaScript Object Notation）是一种轻量级的数据格式，广泛用于 Web 服务和数据交换。Perl 语言提供了丰富的模块和功能，可以轻松地解析和处理 JSON 数据。

解析 JSON 数据

要解析 JSON 数据，可以使用 JSON 模块中的 decode_json() 函数。该函数将 JSON 字符串解析为 Perl 数据结构（通常是哈希或数组）：```perl
use JSON;
my $json_str = '{ "name": "John Doe", "age": 30 }';
my $json_data = decode_json($json_str);
```

解析后的 $json_data 将是一个包含 name 和 age 成员的哈希。

生成 JSON 数据

要生成 JSON 数据，可以使用 JSON 模块中的 encode_json() 函数。该函数将 Perl 数据结构（哈希或数组）转换为 JSON 字符串：```perl
use JSON;
my $hash = { name => "John Doe", age => 30 };
my $json_str = encode_json($hash);
```

生成的 $json_str 将是一个包含 name 和 age 成员的 JSON 字符串。

处理嵌套 JSON 数据

JSON 数据可以嵌套，这意味着对象或数组可以包含其他对象或数组。要处理嵌套的 JSON 数据，可以使用 Perl 的递归函数：```perl
sub traverse_json {
my $data = shift;
if (ref $data eq 'HASH') {
# 对象
for my $key (keys %$data) {
traverse_json($data->{$key});
}
} elsif (ref $data eq 'ARRAY') {
# 数组
for my $item (@$data) {
traverse_json($item);
}
} else {
# 标量值
print "$data";
}
}
```

这个函数将递归地遍历 JSON 数据结构，打印每个标量值。

使用 CPAN 模块

CPAN（Comprehensive Perl Archive Network）中还提供了许多处理 JSON 的模块，可以提供更高级的功能。例如：* JSON::XS：一个快速高效的 JSON 解析和生成模块。
* JSON::Path：允许使用 XPath 语法查询 JSON 数据。
* JSON::Schema：用于验证和生成符合 JSON Schema 的 JSON 数据。

示例

以下是一个展示如何使用 Perl 解析、生成和处理 JSON 数据的示例：```perl
use JSON;
# 解析 JSON 字符串
my $json_str = '{ "name": "John Doe", "age": 30 }';
my $json_data = decode_json($json_str);
# 生成 JSON 字符串
my $json_str = encode_json(name => "John Doe", age => 30);
# 遍历嵌套 JSON 数据
sub traverse_json {
my $data = shift;
if (ref $data eq 'HASH') {
for my $key (keys %$data) {
traverse_json($data->{$key});
}
} elsif (ref $data eq 'ARRAY') {
for my $item (@$data) {
traverse_json($item);
}
} else {
print "$data";
}
}
traverse_json($json_data);
# 使用 CPAN 模块
use JSON::XS;
my $json_xs = JSON::XS->new()->decode($json_str);
print $json_xs->value('name'); # 打印 "John Doe"
# 使用 JSON::Path 查询 JSON 数据
use JSON::Path;
my $path = JSON::Path->new($json_data);
my $value = $path->value('$.age'); # 获取 "age" 的值
```