perl - 当该行包含额外的未转义双引号时，如何使用 Text::ParseWords::parse_line？

Question

我正在使用来自 Text::ParseWords 的 parse_line解析一行文本。但是，当一对双引号内有未转义的双引号 (") 时，parse_line 会失败。

例如:

use Text::ParseWords; 
...
my $line = q(1000,"test","Hello"StackOverFlow");
...
@arr = &parse_line(",",1,$line);

我不想转义内部双引号(例如 "Hello\"StackOverFlow")。

有没有其他的方法来解析这条线？

Answer 1

使用@TLP 和@ThisSuitIsBlackNot 注释:

use 5.022;
use Text::CSV;
use Data::Dumper;
my $line = q(1000,"test","Hello"StackOverFlow");

my $csv = Text::CSV->new( {allow_loose_quotes => 1, escape_char => '%'});
$csv->parse($line);
my @fields = $csv->fields();
print Dumper \@fields;


__DATA__
$VAR1 = [
          '1000',
          'test',
          'Hello"StackOverFlow'
        ];