我需要编写一个CSV文件,其中某些字段包含其他逗号。
所以我使用了``@fields = Text :: ParseWords :: parse_line(',',0,$ line); 为了做处理。
但是如何在最后使用join函数写入perl中的文件?
答案 0 :(得分:1)
理想情况下,您应使用CSV库,例如Text::CSV_XS。
如果唯一的问题是字段中的额外逗号,而不是额外的引号,我将分享一个技巧。
$line_out = '"'.join('","', @fields).'"'
当字段可能包含逗号,换行符等时,RFC4180会引用字段,即"field1","field2","compound,field"
。