ファイルの入出力

Question

あるフォルダにはいっているすべてのcsvファイルのデータをひとつのテキストファイルに出力したいのですが、うまくいきません。わからなかったのでとりあえず、別々のファイルで下記を実行してみました。 ■指定のフォルダに入っているファイル名をすべて出力。これはうまくいきました。csvファイルが3つほど入っているのですが、 3つのファイル名が出力されます。 #!/usr/bin/perl opendir(IN,"test/"); while ($filename = readdir(IN)) { $path = "C:/perl/test/$filename"; $source = $filename; print $source," " if -f $path; } ■指定のファイル（a.csv）の中身をtest.htmlとしてファイル出力これもうまくいきました。カンマ区切りのデータが、行ごとにあるだけはいっていき、htmlのテーブルにがつがつはいっていきます。 #!/usr/bin/perl my $source = "a.csv"; open (IN, $source) or die "$!"; my $dest = "test.html"; open (OUT, ">$dest") or die "$!"; print OUT ' 無題ドキュメント '; while () { chomp; @data = split(/,/, $_); print OUT " "; print OUT " "; print OUT " "; } print OUT "

名前	住所	性別
",$data[0],"	",$data[1],"	",$data[2],"

"; つまり、この二つを1ファイルにまとめたいのです。一個目で取得したファイル名リストを２個目のopen で順次ファイルの中身を取っていってほしいのです。いったんファイル名をテキストファイルに出力してから、それを読む方法もあったのですが、できたら、ファイルを出力せずに変数からそのまま、ファイル名の一覧を取得したいと思っています。どなたか教えていただけますでしょうか。

metis · Accepted Answer

#!usr/bin/perl

opendir(DIR,"test/");
$dest = "test.html";
open (OUT, ">$dest") or die "$!";
while ($filename = readdir(DIR)) {
$path = "test/$filename";
$source = $filename;

if(-f $path){
open (IN, $path) or die "$!";

print OUT '<!DOCTYPE html PUBLIC
（以下、表の１行目が終わるまで略）

while (<IN>) {
chomp;
@data = split(/,/, $_);
print OUT "<tr>\n";
print OUT "<th bgcolor=\"#666666\">",$data[0],"</th>\n<td>",$data[1],"</td>\n<td>",$data[2],"</td>\n";
print OUT "</tr>\n";
}
close(IN);
}
}
closedir(DIR);

（３行略）

close(OUT);

こんな感じでしょうか。
ポイントは
・１つ目のでファイルを見つけるごとに２つ目の処理を実行する。
・出力先ファイルは先に開いておいて、最後まで閉じない
この辺りでしょうか。
詳しくはソースの違いを良く見て理解して下さい。
自分でひとつにまとめた時（動かなかったものですね）のソースも手元に置いて、比較すればなお良しです。
分からなければ補足しますが。

ちなみに、コードには、私なりのスタイルが入っててその辺りごっちゃになってますが、まぁ、何とかなるかと思います。

sakusaker7 · Answer

検索対象のディレクトリには .csv以外のファイルもなかったりしないのでしょうか? あと、ディレクトリを再帰的に潜って行くこともしないでいいのですよね? opendirで自分でディレクトリエントリを読んで行くとファイルの振り分けとかが面倒だと思うので、globを使ってみました。 #!/usr/bin/perl use strict; use warnings; my $targetdir = shift || 'test'; my @filelist =glob( $targetdir . '/*.csv' ); open my $of, '>', 'output.html' or die; print $of <? ? 無題ドキュメント END_OF_HEADER foreach my $file (@filelist) { open my $if, '<', $file or warn "can't open $file"; while (<$if>) { my @fields = split q{,}, $_; print $of < END_OF_TEMPLATE } close $if; } print $of < END_OF_TRAILER close $of; ヘッダとかトレイラーのところはサブルーチンにしたいところですがとりあえずはこんなところで。

名前	住所	性別
$fields[0]	$fields[1]	$fields[2]

ファイルの入出力

#!usr/bin/perl

検索対象のディレクトリには .csv以外のファイルもなかったりしないのでしょうか?

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング