Perl複数ファイルから一行ずつ読み込んで比較

質問

• Perlを使用して複数のファイルから一行ずつデータを読み込み、数値の大小を比較する方法について教えてください。初心者向けの場合でも理解できるようにお願いします。
• ファイル構造は2行で1つのテキストデータを表し、奇数行にはテキストデータの情報が、偶数行にはIDが記載されています。テキスト内の数値を比較して、差が一定以上のテキストの情報を抽出したいです。
• また、奇数行のテキスト情報はドット（.）の後に数値があり、その数値の大小を比較する際には括弧（）で囲まれた数値の部分を使用します。

回答No.2

kumoz · ベストアンサー

元のファイルの file1 と file2 の対応関係にズレはないということなので、１つの while ループで処理できると思います。

#!/usr/bin/perl
use strict;
use warnings;

open IN_1, "file1" or die "Can't open file1: $!";
open IN_2, "file2" or die "Can't open file2: $!";
open OUT, ">output.txt" or die "Can't open output.txt: $!";

while (my $f1_line = <IN_1>) {
$f1_line .= <IN_1>;
my $f2_line = <IN_2>; $f2_line .= <IN_2>;
next unless $f1_line =~ /\([\d.]+\)/;
my ($num_1) = $f1_line =~ /\(([\d.]+)\)/;
my ($num_2) = $f2_line =~ /\(([\d.]+)\)/;
if (abs($num_1 - $num_2) >= 5) { # 5 とブロック内は適宜変更
print OUT $f1_line, $f2_line;
}
}

close IN_1; close IN_2; close OUT;

お礼

お返事が遅くなってしまい、申し訳ありません。こまかい部分で、いくつか良く分からない部分がありましたので、先頭数百行でとりあえずサンプルファイルを作って、それでご連絡いただいたスクリプトを使って処理してみました。

結果からいうとうまく出力できました。いまだなぜこのように書くのか？不明な点はありますが、このような短い記述で、差があったtextファイルだけ出力できたので、大変驚いています。本当にありがとうございます。特に参考になったのは、perlを使える皆様には当たり前の話かもしれませんが

１、whileの中に、ファイルハンドルを宣言するならば、ひとつのファイルハンドルで複数のファイルを処理できる。当たり前かもしれませんがこの発想に頭がまったく回りませんでした。

２、nextとunlessを組み合わせて、正規表現でマッチしなければ、whileの処理をスキップする部分。
next unless $f1_line =~ /\([\d.]+\)/;

３、マッチすれば、それを次の処理につなげるためそのまま新変数に代入する
my ($num_1) = $f1_line =~ /\(([\d.]+)\)/;

４、新変数の差を条件にif文を走らせる。

本当に勉強になりました。ひとつの疑問でいろいろと学べ、まことに感謝しております。お忙しい中、このような素晴らしい記述をご教授いただき、まことにありがとうございました。

ところで、後学のためにお時間ありましたらもうひとつだけ教えていただきたいのですが、while文の中で、再度$f1_lineを定義しているのはどういう意味があるのでしょうか？IN２もそうですが。
while (my $f1_line = <IN_1>) {
$f1_line .= <IN_1>;

また、その際、＝でなく.=としているのはどういう意味があるのでしょうか？自分なりに検索して調べてみましたが、.=というものの意味を示す記述は見つかりませんでした。これが分かれば、この記述法は、完全に理解できると思うのですが、ここだけよく分かりません。