如何在 perl 中将二维数组输出到 csv 文件?
例如,我构建了一个维度数组:
for my $i(0..100) {
for my $j (0..50) {
$data[$i][$j]=0;
}
}
我想将其输出到 csv 文件以供将来参考。并且这个 csv 文件应该被读取并重建为二维数组。使用如下代码:
my $outfilename="output.csv";
my $csv = Text::CSV->new;
open OUT , '<', $outfilename or die "Could not open $outfilename: $!";
while( my $row = $csv->getline( OUT ) ) {
push @output, $row;
}
close OUT;
什么是有效的方法来做到这一点?