perl 比较两个文件中相同字符的代码，供大家学习参考。
复制代码 代码如下:
#!/usr/bin/perl -w
open (F1,"a.txt");
while ($a=<F1>) {
#print "$a","n";
open (F2,"b.txt");
while (<F2>) {
if (/($a)/) {
print "$. $_";
}
}
}
复制代码 代码如下:
#!/usr/bin/perl -w
open (F1,"a.txt");
open (F2,"b.txt");
@a=<F1>;
@b=<F2>;
%seen=();
foreach (@a) {
$seen{$_}=1;
}
@reslut=grep ($seen{$_},@b);
print "@reslut";
