如果某些字段包含其他逗号，如何使用join函数创建csv文件

Question

我需要编写一个CSV文件，其中某些字段包含其他逗号。

所以我使用了``@fields = Text :: ParseWords :: parse_line（'，'，0，$ line）; 为了做处理。

但是如何在最后使用join函数写入perl中的文件？

Answer 1

理想情况下，您应使用CSV库，例如Text::CSV_XS。

如果唯一的问题是字段中的额外逗号，而不是额外的引号，我将分享一个技巧。

$line_out = '"'.join('","', @fields).'"'

当字段可能包含逗号，换行符等时，RFC4180会引用字段，即"field1","field2","compound,field"。