2

如何使用 Text::CSV_XS 模块从 CSV 字符串中读取其输入。然后只有我能找到记录的信息是从文件中读取的。

最快的方法是使用 perl split 函数拆分 CSV 字符串并从那里读取每一行,还是有一些带有 Text::CSV_XS 的内置方法可以直接从 CSV 字符串中读取?

谢谢

4

2 回答 2

4

getline方法Text::CSV_XS将从文件句柄中读取,因此您可以将标量字符串作为流打开并传递该文件句柄。

这个程序演示

use strict;
use warnings;

use Text::CSV_XS;

my $string = <<'END';
a,b,c,d
e,f,g,h
i,j,k,l
m,n,o,p
END


my $csv = Text::CSV_XS->new;
open my $fh, '<', \$string;

while (my $row = $csv->getline($fh)) {
  print join('-', @$row), "\n";
}

输出

a-b-c-d
e-f-g-h
i-j-k-l
m-n-o-p
于 2013-02-08T11:51:34.530 回答
1

使用解析方法;

#!/usr/bin/env perl
#
use strict;
use warnings;
use Data::Dumper;

use Text::CSV_XS;

my $csv = Text::CSV_XS->new();
if ( $csv->parse('Column1,Column2,Column2') ) {
    my @columns = $csv->fields;
    print Dumper( \@columns );
}
else {
    # Failed to parse the CSV data
}
于 2013-02-08T11:08:31.020 回答