Perl - "/"导致用逗号分割的问题

Question

我正在尝试用","拆分文件.这是一个CSV文件.

但是,一个"列"的值包含"/"和空格.而且它似乎对该列感到不满,并且在该列之后不会打印任何内容,而是移动到下一行.

我的代码很简单:

perl -lane '@values = split(",",$F[0]);  print $values[0]."\t".$values[3];' basefile.txt > newfile.txt

basefile.txt看起来像:

"1","text","abc // 123 /// some more text // text","filename1"
"2","text","abc // 123 /// some more text // text","filename2"
"3","text","abc // 123 /// some more text // text","filename3"

我的newfile.txt应该有一个输出:

"1","filename1"
"2","filename2"
"3","filename3"

相反,我得到:

"1",
"2",
"3",

谢谢!

Answer 1

这不是/令人困惑的perl,它是与-a旗帜相结合的空间.尝试:

perl -lne '@values = split(",",$_); print $values[0]."\t".$values[3]' basefile

或者,更好的是,使用Text :: CSV_XS进行拆分.