需要一些写入 csv 文件的帮助

Question

我是 Perl 新手，在对单行进行一些操作后，我需要一些帮助将输出写入 csv 文件的最后一列。我在 perl 中使用 Text::CSV_XS 模块。我知道写入 csv 文件的语句是 print FH "sitepoint, 2, 7\n" ；但是如何写入特定列（例如第 5 列）？

Answer 1

来自 Text::CSV 文档：

在设置 always_quote 的情况下写入 CSV 文件时，未加引号的空字段是未定义值的结果。

因此，如果您执行以下操作：

my @arr = ( undef, undef, undef, undef, "5th column" );
my $csv = Text::CSV->new ( { always_quote => 1 } );
open my $fh, '>', 'outfile.csv' or die $!;
$csv->print( $fh, \@arr );

...您应该获得以下形式的输出文件

,,,,5th column

Answer 2

print ",,,,5th column\n";

这将写入第五列。每个 , 都会转移到下一列。另请阅读此内容。