在逗号上拆分，但仅在不用双引号时

Question

如何在数组中拆分下面的字符串？ 我尝试了split（）但它也拆分了bouble引用的字符串....但是我不想拆分bouble引用的字符串。

Apple,"String1,String2",Abcd,EFGH,XYZ

输出应该是：

Apple
"String,String2"
Abcd
EFGH
XYZ

Answer 1

使用Text::CSV：

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

use Text::CSV;

my $parser = Text::CSV->new;
$parser->parse(qq(Apple,"String1,String2",Abcd,EFGH,XYZ));
say join "---", $parser->fields;

输出：

Apple---String1,String2---Abcd---EFGH---XYZ