【发布时间】:2011-06-06 20:07:48
【问题描述】:
我是 perl 新手,在对单行进行一些操作后,我需要一些帮助才能将输出写入 csv 文件的最后一列。我在 perl 中使用 Text::CSV_XS 模块。我知道写入 csv 文件的语句是 print FH "sitepoint, 2, 7\n" ;但是如何写入特定列,如第 5 列?
【问题讨论】:
我是 perl 新手,在对单行进行一些操作后,我需要一些帮助才能将输出写入 csv 文件的最后一列。我在 perl 中使用 Text::CSV_XS 模块。我知道写入 csv 文件的语句是 print FH "sitepoint, 2, 7\n" ;但是如何写入特定列,如第 5 列?
【问题讨论】:
在写入设置了
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
【讨论】:
print ",,,,5th column\n";
这将写入第 5 列。每个, 移动到下一列。另请阅读this。
【讨论】: