在 Perl 中，如何正确解析带有引号字符串的制表符/空格分隔文件？

Question

我需要解析 Perl 中包含很多列的制表符/空格分隔的文件。这些值使得大字符串括在双引号内。这些字符串可以包含任何字符，例如制表符和空格或其他任何字符。

当我尝试使用 split 函数解析它们时，它也会拆分这些字符串。现在我怎样才能让 perl 理解“”中的字符串是单个列条目？

一个简单的例子是，

12  345546.67677   "Hello World!!!" -567.55656 0.5465767 "Hello_Again;   "

Answer 1

使用 Text::CSV 库，它可以处理所有边缘情况为你。它允许您设置分隔符：

my $csv = Text::CSV->new({sep_char => "\t"});

Answer 2

请注意，您说的是制表符/空格分隔。如果分隔符是混合的和/或您必须将连续空格视为一个，请使用 Text::ParseWords< /a> 可能更容易：

#!/usr/bin/perl

use Text::ParseWords qw( quotewords );
use YAML;

while ( my $line = <DATA> ) {
    print Dump [ quotewords('\s+', 0, $line) ];
}

__DATA__
12  345546.67677   "Hello World!!!" -567.55656 0.5465767 "Hello_Again;   "

输出：

---
- 12
- 345546.67677
- Hello World!!!
- -567.55656
- 0.5465767
- 'Hello_Again;   '

Answer 3

其他可能性是 Regexp::Common::balanced 和 Text::Balanced。