perl正则表达式请帮助

Question

我有一句话：

a,b,"c,d,e",f,g,"h,i,",k,l,m

目前要分割这一行而不是“。*”中的逗号 我做了以下事情：

$s =~ s/"[^"]*"//g;
@list = split ',' , $s;

我想在不删除“”

中包含的数据的情况下进行拆分

Answer 1

您想要Text::CSV（或者，如果安装CPAN模块对您来说是一个问题，核心模块Text::ParseWords将完全相同）。