多数のｇｚファイルの処理

質問

多数のgzファイルがあります。300を下らない。
ファイル名のルールは　xxxxx_YYYY_200510031215.gz
（１）解凍して、
（２）できたテキストファイルを処理して、かつ１つのサイズの大きなファイルに仕立て上げたい。
-------------
A. lsコマンドでgzファイルのリストを作成し、ファイルに収める。（list.txtとします）
B. その一方でperlでテキストファイルに対する処理を記述します。(ModifyText,plとします）
　　これの内容は、行の先頭にファイル名の一部（YYYY）を挿入することです。これでもって、多数のファイルを結合してもそれぞれを判別できます。
　　また、10/03/2005 12:00　と２つのフィールドになっているデータを "2005/10/03 12:15" 12:15 12:00の3つのフィールドにします。
即ち
original 　10/03/2005 12:15　hhhh jjjj kkkk
modified YYYY "2005/10/03 12:15" 12:15 hhhh jjjj kkkk

こういったものをshellscriptで実行したいのですが、まだ、どうのように構成していって良いのかわかっていません。雛型を教えていただけないでしょうか？
よろしくお願い致します。

回答No.1

inetd · ベストアンサー

こんなのどうでしょう。
但し日時の書き換え規則がよく分からなかったのでその辺は改造して下さい。(以下はアメリカ式の順序(MDY)を日本式(YMD)にしてダブルクォーテーションで括っているだけです)。

ファイル名: ModifyText.pl

open(F, 'list.txt') or die "list.txt: $!\n";
while ($fn = <F>) {
　chomp($fn);
　if ($fn = /^xxxx_([^_]+)_/) {
　　$y = $1;
　　open(F2, "zcat $fn |") or die "$_: $!\n";
　　while (<F2>) {
　　　s/(\d+)/(\d+)/(\d+)\s+(\d+):(\d+)/"$3/$1/$2 $4:$5"/;
　　　s/^/$y/;
　　　print;
　　}
　　close(F2);
　}
}
close(F);

で、これを list.txt のあるディレクトリでこうやって実行する。

perl ModifyText.pl >newfile.txt

お礼

大変遅くなりました。助かりました。
何とか、仕事はこなせました。ありがとございました。