使用perl单行，如何从文件中删除第一行中所有列名周围的“

Question

使用perl single liner，如何从文件中删除第一行中所有列名周围的“。

无法仅删除列名称周围的双引号。

输入文件

"FNAME","LNAME"
"A1B1","XYZ"
"A1B2","X12"

输出文件的列名不带双引号。

FNAME,LNAME
"A1B1","XYZ"
"A1B2","X12"

Answer 1

Text::CSV_XS 除非“必要”，否则不会使用引号，因此它将删除您想要删除的引号（以及更多）。

perl -e'
   use Text::CSV_XS qw( csv );
   my $rows = csv( in => \*ARGV );
   csv( in => $rows, out => \*STDOUT );
' file.csv

输出：

FNAME,LNAME
A1B1,XYZ
A1B2,X12