使用perl single liner,如何从文件中删除第一行中所有列名周围的“。
无法仅删除列名称周围的双引号。
输入文件
"FNAME","LNAME"
"A1B1","XYZ"
"A1B2","X12"
输出文件的列名不带双引号。
FNAME,LNAME
"A1B1","XYZ"
"A1B2","X12"
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