使用perl拆分以逗号分隔的字符串和文本限定符

Question

我需要使用perl拆分下面的字符串,详情如下.我需要从CSV文件中将数据加载到表中.字符串变量用""括起来.请给我一个想法,我是perl脚本的新手.

字符串: "February 6, 2012","","","1","02/06/12","","",1,1,0

输出:

February 6, 2012
<BLANK VALUE>
<BLANK VALUE>
1
02/06/12
<BLANK VALUE>
<BLANK VALUE>
1
1
0

Answer 1

这看起来很像CSV.如果是,那么请自己和我们一个忙,并使用适当的模块而不是正则表达式.有优秀的Text :: CSV_XS.