perl - 如何使用简单的 perl 脚本重新排列我的 txt 文件的行？

Question

我原来的txt文件是这样的：

A "a,b,c"
B "d"
C "e,f"

如何将其转换为：

A a
A b
A c
B d
C e
C f

我试过这个

perl -ane '@s=split(/\,/, $F[1]); foreach $k (@s){print "$F[0] $k\n";}' txt.txt

它有效，但我怎样才能消除“”

标签： perlparsingtext-parsing

Answer 1

您可以使用替换来删除双引号

@s = split /,/, $F[1] =~ s/"//gr;

返回值而/r不是更改值。