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

質問

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

回答No.1

masaboo · ベストアンサー

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のコピーコマンドを呼んでファイルを結合してもいいと思います。