【问题标题】:Need some help writing to a csv file需要一些帮助写入CSV文件
【发布时间】:2011-06-06 20:07:48
【问题描述】:

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

【问题讨论】:

    标签: perl csv


    【解决方案1】:

    来自Text::CSV docs

    在写入设置了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
    

    【讨论】:

      【解决方案2】:
      print ",,,,5th column\n";
      

      这将写入第 5 列。每个, 移动到下一列。另请阅读this

      【讨论】:

      • 您的解决方案不适合我。什么都没有写。我认为问题在于打开文件本身。这是正确的吗?
      • @mousey 你包含文件句柄了吗?以上只是演示要打印的内容。
      • 我包含了一个 +>>。它仍然无法正常工作。现在我也无法阅读。可能是什么问题
      猜你喜欢
      • 2018-07-28
      • 1970-01-01
      • 2020-10-17
      • 1970-01-01
      • 2011-06-14
      • 1970-01-01
      • 1970-01-01
      • 2011-01-13
      • 1970-01-01
      相关资源
      最近更新 更多