解释这个在2个文件中显示公共行的perl代码

这个perl的一行显示行如何显示2个文件的共同点？

perl -ne 'print if ($seen{$_} .= @ARGV) =~ /10$/'  file1 file2

解决方法

-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必须显示在最后。

原文地址：https://www.jb51.cc/Perl/173200.html