各位大侠，

文件1:
a
d
f
g
h
i
n
v
x
y
z

文件2:
a
a
f
g
g
i
i
i

输出文件：
√√

√
√√

√√√


自己编的程序：
open(IN1,"x") || die "Cannot open this file";

@lines1 = <IN1>;

open(IN2,"y") || die "Cannot open this file";

@lines2 = <IN2>;

open(OUT,">z") || die "Cannot open this file";

for $item1(@lines1){

chomp $item1;

$i=0;

#print OUT $item1,"\n";


for $item2(@lines2){

chomp $item2;


if ($item1 eq $item2){

print OUT "√";

last;

}


}

print OUT "\n";

}

close(IN1);

close(IN2);

close(OUT);

结果：
√

√
√

√


郁闷啊，应该怎么编？

先谢谢了！

打钩的条件，看不懂。

perl不懂，python的需要不？