标签： perl command-line
我正在使用perl -ne '$h{$_}++; END {print grep { $h{$_} == 1 } %h}' <a.txt <b.txt来获取两个文件的唯一行。在打印这两个文件的所有唯一行时，我希望它打印包含这些唯一行的文件的相应名称。
perl -ne '$h{$_}++; END {print grep { $h{$_} == 1 } %h}' <a.txt <b.txt
在perl命令中有没有一种方法可以做到这一点？
p.s。请原谅我可怜的英语。我希望我能弄清楚。：）
答案 0 :(得分：2)
您可以从$ARGV保存文件名。这是一个示例，其中我将文件名放在另一个哈希<string name="age">%d</string> 中：
$ARGV
<string name="age">%d</string>
%n