如何用逗号分割字符串而不在perl的引号内包含逗号？ [复制]

Question

这个问题在这里已经有了答案：

如何在 Perl 中有效地解析 CSV 文件？ (6 个回答)

上个月关门。

我在下面有这段代码：

my $file = 'c:\test.log';
open (FILE, "<", $file) or die $!;
my @list = grep /\bAdobe\b/, <FILE>;
my $days;
foreach (@list) {
    $days = $_;
    print "$days\n";
}

预期结果是：

"Adobe","10:10:10, 11/10/2011","Ready"

我想用下面的代码用逗号分割结果：

my @sample = split(',', $days);

预期结果是：

"Adobe"
"10:10:10
11/10/2011"
"Ready"

但这不是我想做的。

我想像这样打印输出：

"Adobe"
"10:10:10, 11/10/2011"
"Ready"

如果不使用/安装任何像 Text::CSV 这样的模块，我怎么能做到这一点？

Answer 1

理想情况下，您将使用 CSV 解析器，请参阅Text::CSV 。 或者只要所有字段都被双引号引起来，那么您可以使用带有稍微复杂的正则表达式的拆分，它会检查分隔符：

split /(?<="),(?=")/, $days;

Answer 2

我相信它适用于Text::CSV模块。 像这个例子这样的东西应该有效：

use Text::CSV;

my $file = 'c:\test.log';
open (my $FILE, "<", $file) or die $!;
my $csv = Text::CSV->new;

while (my $row = $csv->getline($FILE)) {
  my @sample = @$row;
  next if $sample[0] !~ /\bAdobe\b/;
  # do whatever you want
}

Answer 3

无需从 CPAN 安装 Text::CSV（尽管，如果您有该限制，那么您确实需要修复该限制），因为也可以使用标准发行版中的Text::ParseWords模块。

Answer 4

由于字符串"Adobe","10:10:10, 11/10/2011","Ready"作为 perl 代码是有效的，您可以使用eval ：

my $file = 'c:\test.log';
open my $fh, "<", $file or die $!;
for (grep /\bAdobe\b/, <FILE>) {
    my @sample = eval;
    # code here
}

但仅对您确定格式有效的数据执行此操作。

来自Data::Dumper的输出：

$VAR1 = [
          "Adobe",
          "10:10:10, 11/10/2011",
          "Ready"
        ];