在逗號分割，但只有當不在雙引號

Question

如何分割數組中的下面的字符串？ 我試過拆分（），但它也分裂了雙引號字符串....但是我不想分裂雙引號字符串。

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