使用Perl获取写入CSV的结果

#!/usr/bin/perl

use strict;
use warnings;
use Text::CSV;

# 创建一个新的CSV对象
my $csv = Text::CSV->new ({
    binary    => 1,
    auto_diag => 1,
    sep_char  => ',',
});

# 打开文件句柄
open my $fh, '>', 'data.csv' or die "Cannot open 'data.csv': $!";

# 将数据写入CSV文件
my @data = (
    [qw(Name Age)],
    ['John', 27],
    ['Jane', 29],
);

$csv->print ($fh, $_) for @data;

# 关闭文件句柄
close $fh or die "Cannot close 'data.csv': $!";