Perl 初心者コーナー Part23
■ このスレッドは過去ログ倉庫に格納されています
0032nobodyさん
03/05/17 14:49ID:???こんなののほかに何かいいのありますかね。
open(FILE1, "test1.txt") or die "$!\n";
@file1 = <FILE1>;
close FILE1;
open(FILE2, "test2.txt") or die "$!\n";
while(<FILE2>) {
print $_ unless grep($_, @file1);
}
close FILE2;
よろしうお願い島。
■ このスレッドは過去ログ倉庫に格納されています