ファイル結合について

質問

こんばんわ。
perlでファイルを結合するプログラムを作成しているのですが、
よいアイデアが沸きませんのでアドバイスをお願いします。

ファイル数個を結合したいと考えているのですが、各ファイルの1行目は全て同じであり、削除したいと考えています。
そこで、全ファイル結合→重複行削除　かなと思っています。
perlで外部コマンド(cat , uniq)を呼び出すのが一番早いかなと
思っていますが、あまり効率的ではなさそうなので、
何かよいアイデアはないでしょうか？

回答No.1

BLUEPIXY · ベストアンサー

#一行目を除いて引数で指定したファイルを連結する
while(<>){
print if $.!=1;
} continue {
close(ARGV) if eof;
}
のようなスクリプト(仮にcat.plとする)を書いて
Perl cat.pl a.txt b.txt >all.txt
のようにしてできます。

お礼

ありがとうございます。
問題なくできました。