perlプログラム 外部複数ファイルの読み込み処理について

質問

• perlプログラムを使用して外部複数ファイルの読み込み処理を行いたい場合、どのように実装すればよいのでしょうか？31個のファイルがあるフォルダから一つずつファイルを読み込み、別のリストに含まれる値が各ファイルの何行目に含まれているかを出力するPerlプログラムを作成したいです。
• Perlプログラムを使用して外部の複数のファイルを読み込む方法について教えてください。31個のファイルがあるフォルダに格納されており、別のファイルには一意な値が格納されています。この一意な値が各ファイルの何行目に存在するかを出力するPerlプログラムを作成したいです。
• 外部の複数のファイルをPerlプログラムで読み込む方法について教えてください。31個のファイルがあり、別のファイルには一意な値が含まれています。これらの一意な値が各ファイルのどの行にあるかを出力するPerlプログラムを作成したいです。どのように実装すればよいのでしょうか？

回答No.2

kumoz · ベストアンサー

サンプルプログラムを作成してみたので試してみてください。
テストしていないのでうまく行かないことがあるかも知れません。

use strict;
open FH, "list.txt" or die "Can't open list.txt: $!";
my @keyword = <FH>; chomp @keyword;
close FH;
my ($day, @result) = ('00');

while (++$day lt '32') {
my $file = "T0001_05_$day";
open FH, $file or die "Can't open $file: $!";
while (my $line = <FH>) {
foreach my $i (0 .. $#keyword) {
if ($line =~ /$keyword[$i]/) {
push @result, [$i, "$day", $., "$file ${.}行目 $line"];
last;
}
}
}
close FH;
}

@result = map { $_->[3] } sort { $a->[0] <=> $b->[0] || $a->[1] cmp $b->[1] || $a->[2] <=> $b->[2] } @result;

open OUT, ">out.txt" or die "Can't open out.txt: $!";
print OUT @result;
close OUT;

お礼

このプログラムで　うまく解決できました。ありがとうございます。