以下に示すように、以下の入力ファイル(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
コマンドの数を減らして高速化する他の方法はありますか。