ファイル読み込みマッチングについて

質問

現在二つのファイルをつき合わせて一致しない
ファイルを出力するようなものを作っています。

例ですが。
---a.txtココカラ---
aaa
bbb
ccc
---ココマデ---

---b.txtココカラ---
aaa
ccc
ddd
fff
---ココマデ---

上記ファイルを照らし合わせて
以下のファイルを出力

---c.txtココカラ---
bbb
---ココマデ---

のように出力させたいのですが。
自分の作成したものは

---a.plココカラ---
open(IN1,"a.txt") || die $!;
open(IN2,"b.txt") || die $!;
open(OUT,">c.txt") || die $!;

sub hikaku {
while(<IN2>){
if($a eq $b){
return;
}
}
print OUT "$a";
return;
}

while(<IN1>){
$a = $_;
&hikaku;
}

close(IN1);
close(IN2);
close(OUT);
---ココマデ---

いろいろテストをしてわかったことですが
サブルーチンの while(<IN2>) そのままに
なる一回しか回らないことがわかりました。
これは偽になった後、サブルーチンを抜けまた
回ってきた時に偽と判断されるからでしょうか？

プログミング自体始めたばかりなので、こんなん
あかんに決まってるやん！とか一からだなこれ！！
とか導いていただけるなら厳しいご指摘お待ちして
おります。

長くなりましたがよろしくお願い致します！！

回答No.1

arcsin · ベストアンサー

ぱっとみですが、<IN2>は一度しか中身を吐かないので、一度配列につめてやる必要があります。
たとえば

open(IN2,"b.txt") || die $!;
@in2 = <IN2>;
close(IN2);

とすればb.txtの中身は行ごとに配列@in2に格納されます。そうすれば、

sub hikaku {
　while(@in2){
　　if($a eq $_){ return; }
　}
　print OUT "$a";
　return;
}

とすれば動くと思いますよ。
ただ動作確認は行っていないので、自信は無しです。

お礼

ありがとうございます！！
おかげさまで解決しました！！

@in2 = <IN2>;
このような引渡し方はすごく勉強になりました！

ただwhile(@in2)だとまったく吐き出せなかったので
それは全体に処理を行うforeach(@in2)にすることで解決しました。

ありがとうございました！！