Perl搜索唯一的行和相应的文件名

Perl搜索唯一的行和相应的文件名,perl,command-line,Perl,Command Line,我使用的是perl-ne'$h{$}++;END{print grep{$h{${}==1}%h}'您可以从中保存文件名。下面是一个示例,其中我将文件名放入另一个哈希%n: perl -nE 'chomp; $h{$_}++; $n{$_}=$ARGV; END {say for map {"$n{$_}: $_"} grep { $h{$_} == 1 } keys %h}' a.txt b.txt 您可以从中保存文件名。下面是一个示例,其中我将文件名放入另一个哈希%n: perl -

我使用的是
perl-ne'$h{$}++;END{print grep{$h{${}==1}%h}'您可以从中保存文件名。下面是一个示例,其中我将文件名放入另一个哈希
%n

perl -nE 'chomp; $h{$_}++; $n{$_}=$ARGV; 
  END {say for map {"$n{$_}: $_"} grep { $h{$_} == 1 } keys %h}' a.txt b.txt

您可以从中保存文件名。下面是一个示例,其中我将文件名放入另一个哈希
%n

perl -nE 'chomp; $h{$_}++; $n{$_}=$ARGV; 
  END {say for map {"$n{$_}: $_"} grep { $h{$_} == 1 } keys %h}' a.txt b.txt

嗨@Håkon Hægland,这台机器工作得很好。:)非常感谢。嗨@Håkon Hægland,这台机器工作得很好。:)非常感谢。