【Perl】マッチングした場合にファイルを出力するプログラム

use strict;
use warnings;
use utf8;
binmode STDIN, ‘:encoding(cp932)’;
binmode STDOUT, ‘:encoding(cp932)’;
binmode STDERR, ‘:encoding(cp932)’;

#入力ファイル（）
my $入力FILE1 = “IN1.txt”;
my $入力FILE2 = “IN2.txt”;

#出力ファイル（マッチファイル）
my $出力FILE1 = “OUT_MACHI.txt”;
#出力ファイル（アンマッチファイル）
my $出力FILE2 = “OUT_ANMACHI.txt”;
#出力ファイル（ログ）
my $出力FILE3 = “LOG.txt”;

#入力ファイルをオープンする
open(入力FILE1, “<$入力FILE1”) or die(“error :$!”);
open(入力FILE2, “<$入力FILE2”) or die(“error :$!”);

#出力ファイルをオープンする
open(出力FILE1, “>$出力FILE1”) or die(“error :$!”);
open(出力FILE2, “>$出力FILE2”) or die(“error :$!”);
open(出力FILE3, “>$出力FILE3”) or die(“error :$!”);

#カラのLISTを作成
my @list = ();
#ファイルを１行ずつ読み込み、キー値をリストに追加
while (my $line1 = <入力FILE2>){
    my $Key = substr($line1, 0, 6);
    push(@list, “$Key” );
}

#出力対象リストをログに出力
print 出力FILE3 “@list”;

#ファイルを1行ずつ読み込む
while (my $line = <入力FILE1>){
    #読み込んだデータでキーとなる項目を取得
    my $Key2 = substr($line, 0, 6);
    #キー値で検索し、リストに含まれる場合マッチファイルに出力
    if (grep {$_ eq $Key2} @list){
        print 出力FILE1 $line;
    #リストに含まれない場合、アンマッチファイルに出力
    } else {
        print 出力FILE2 $line;
    }
}

#入力ファイルをクローズします
close(入力FILE1);
close(入力FILE2);

#出力ファイルをクローズします
close(出力FILE1);
close(出力FILE2);
close(出力FILE3);

print “ファイルの出力が完了しました”;

my @list = ();
#ファイルを１行ずつ読み込み、キー値をリストに追加
while (my $line1 = <入力FILE2>){
    my $Key = substr($line1, 0, 6);
    push(@list, “$Key” );
}

#ファイルを1行ずつ読み込む
while (my $line = <入力FILE1>){
    #読み込んだデータでキーとなる項目を取得
    my $Key2 = substr($line, 0, 6);
    #キー値で検索し、リストに含まれる場合マッチファイルに出力
    if (grep {$_ eq $Key2} @list){
        print 出力FILE1 $line;
    #リストに含まれない場合、アンマッチファイルに出力
    } else {
        print 出力FILE2 $line;
    }
}