使用Perl从JSON中提取数据并转换为CSV格式

示例代码演示了如何使用Perl解析JSON格式的数据，并将其转换为CSV格式，以便进行进一步的分析或处理。

use strict;
use warnings;
use JSON::XS;
use Text::CSV_XS;

my $json = '{"employees":[{"firstName":"John","lastName":"Doe"},{"firstName":"Anna","lastName":"Smith"},{"firstName":"Peter","lastName":"Jones"}]}';

# 解析JSON
my $data = decode_json($json);

# 初始化CSV
my $csv = Text::CSV_XS->new({sep_char => ','});

# 打开输出文件
open my $fh, '>', 'output.csv' or die "无法打开输出文件: $!";

# 写入表头
$csv->print($fh, ["First Name", "Last Name"]);

# 遍历JSON，并将数据写入CSV
foreach my $employee (@{$data->{employees}}) {
    $csv->print($fh, [$employee->{firstName}, $employee->{lastName}]);
}

# 关闭输出文件
close $fh;

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com