4

我想将下面的输入文件(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 包含大约 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

有没有其他方法可以用更少的命令更快地完成它。

4

3 回答 3

2

使用 sed:

sed 's/"\(TS.*\)#S10S#.txt.xml"/\1.txt/' input
于 2012-11-29T07:33:10.333 回答
2

使用 Perl:

perl -plne 's/#.*/.txt/;s/,"/,/;'  file

添加选项 -i 以更新文件。

于 2012-11-29T07:37:36.453 回答
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
于 2012-11-29T07:35:32.887 回答