我如何在这个衬里中使用条件？

Question

我有一个包含 3 列的输入文件，我想打印第三列未重复的行。因此，如果我的输入数据如下所示：

0,1,abc
0,2,abc
0,5,xyz

我将打印：

0,1,abc
0,5,xyz

我最初从下面开始，但它没有产生任何输出。我在这行做错了什么？

perl -ne '/^[0-9]+,[0-9]+,(.+)/ && ++$a{$1} && print "$_ $a{$1}\n" if $a{$1}>0'

请注意，我并不是在寻找问题的解决方案，因为我以不同的方式对其进行了编码。但我感兴趣的是为什么上面的行没有达到我的预期，因为它暴露了我对 Perl 理解的差距。

Answer 1

一方面，后缀 if $a{$1} > 0 表达式首先被求值，就像你说的那样，

if ($a{$1} > 0) {
    /^"[0-9]+","[0-9]+","(.+)"/ && ++$a{$1} && print "$_ $a{$1}\n"
}

但是 $a{...} （和 $1）只会在 if 内更新 块，因此 if 语句永远不会为 true。

另一方面，您的正则表达式有双引号字符，但您的示例输入没有。这是一个错字吗？

Answer 2

perl -ne '/^[0-9]+,[0-9]+,(.+)/ && ++$a{$1} ;print "$_" if $a{$1}==1'

您发布的内容还包括打印 $a{$1} 的值。
我认为那是为了调试。

我把“\n”去掉了，因为$1中已经有换行了。

如果你想改变它，请在行的开头使用 chomp 。

虽然使用 &&一行很漂亮，我想这会是
尝试在真正的格式化块中编写 Perl 是个好建议。这会
帮助您更好地学习，更轻松地调试。

看看你的台词，很难立即看出

print $_ if $a{$1}>0 

更好的学习方法（在我看来）的真正意图是什么。
对此：

perl -ne '/^[0-9]+,[0-9]+,(.+)/ and do{
   if ( ! exists $a{$1} ){
     print "$_";
   };
   $a{$1}=1;
}'

Answer 3

perl -ne 'print "$_ $a{$1}\n" if /^[0-9]+,[0-9]+,(.+)/ && !$a{$1}++'

Answer 4

perl -ne 'print if !$_{[m/([^,]*)$/]->[0]}++;'