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

发布时间：2020-12-15 21:21:48 所属栏目：大数据来源：网络整理

导读：这个perl的一行显示行如何显示2个文件的共同点？ perl -ne 'print if ($seen{$_} .= @ARGV) =~ /10$/' file1 file2 解决方法 -n命令行选项将代码转换为等效的代码 while ($ARGV = shift @ARGV) { open ARGV,$ARGV; LINE: while (defined($_ = ARGV)) { $seen

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!