複数のCSVファイルを一つのCSVファイルに

ディレクトリ内に複数あるCSVファイルを一つのCSVにまとめたいのですが、方法がわからないので教えて下さい。
ファイルの読み出しと追加書き込みを繰り返せば良いとは思っています。
ディレクトリ内のファイルを検索するところまでは出来ました。

No.1 ベストアンサー 回答者： masaboo 回答日時： 2004/07/27 16:12

　　my $path = "./data";　　#csvのあるディレクトリ

　　opendir(DIR, $path) || die "Error!!";
　　my @dirs = grep /\.csv$/i, readdir(DIR);
　　closedir(DIR);

　　if(open(OUT,">./mix.csv")){
　　　　for my $fname (sort @dirs){
　　　　　　if(open(IN,"$path/$fname")){
　　　　　　　　my @lines = <IN>;
　　　　　　　　print OUT @lines;
　　　　　　　　close(IN);
　　　　　　}
　　　　}
　　　　close(OUT);
　　}

#ファイルを順に読み込んで書き込んでいるだけです。テキトウに改造してみてください。
#動作確認はしてないです。
#または、perlから、OSのコピーコマンドを呼んでファイルを結合してもいいと思います。