解决方法
-n命令行选项将代码转换为等效的代码
while ($ARGV = shift @ARGV) {
open ARGV,$ARGV;
LINE: while (defined($_ = <ARGV>)) {
$seen{$_} .= @ARGV;
print $_ if $seen{$_} =~ /10$/;
}
}
当第一个文件正在读取时，标量@ARGV为1.对于每一行，1将附加到％见条目。
当第二个文件被读取时，标量@ARGV为0.因此，如果一行在文件1和文件2中，该条目将看起来像1110000(文件1中为3×，file2中为4×)。
我们只想输出一般的行一次。我们在file2中首次看到一条共同的行时，所以$ $ {$ _}的值为1110.这表示为正则表达式/ 10 $ /：字符串10必须显示在最后。