perl - 以逗号分隔，但仅在不使用双引号时

Question

如何将以下字符串拆分为数组？我尝试了 split() 但它也拆分了带引号的字符串....但是我不想拆分带引号的字符串。

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

输出应该是这样的：

Apple
"String,String2"
Abcd
EFGH
XYZ

Answer 1

使用文本::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