我想将下面的输入文件(abc)转换为输出文件(xyz),如下所述:
$more abc
"2005057400BPI","TS.1.BPI.20121112120000.000#S10S#.txt.xml"
"2005057408BPI","TS.1.BPI.20121112120000.000#S10S#.txt.xml"
"2005057488BPI","TS.1.BPI.20121112120000.000#S10S#.txt.xml"
$more xyz
"2005057400BPI",TS.1.BPI.20121112120000.000.txt
"2005057408BPI",TS.1.BPI.20121112120000.000.txt
"2005057488BPI",TS.1.BPI.20121112120000.000.txt
文件abc包含aorund 35k行。我正在进行转换:
$perl -pi -e 's/"//g' abc
$cut -d'.' -f1-5 abc > xyz
$perl -pi -e 's/.....$/\.txt/g' xyz
$perl -pi -e 's/#//g' xyz
$perl -pi -e 's/^/"/g' xyz
$perl -pi -e 's/,/",/g' xyz
有没有其他方法可以用更少的命令更快地完成它。
答案 0 :(得分:2)
使用sed:
sed 's/"\(TS.*\)#S10S#.txt.xml"/\1.txt/' input
答案 1 :(得分:2)
使用Perl:
perl -plne 's/#.*/.txt/;s/,"/,/;' file
添加选项-i以更新文件。
答案 2 :(得分:0)
使用sed
的一种方式:
sed 's/\(.*,\)"\([^#]*\).*/\1\2.txt/' file
结果:
"2005057400BPI",TS.1.BPI.20121112120000.000.txt
"2005057408BPI",TS.1.BPI.20121112120000.000.txt
"2005057488BPI",TS.1.BPI.20121112120000.000.txt