如果这两种Perl书写风格有什么区别，为什么结果不同？

问题描述

我已经写了这两个，但结果却不同。我不确定哪里错了。

对于第一种样式，我将运算符放在“ if”条件之前：

$da{$array[0]}++ and $str="\n$array[0]\t$array[1]\t$array[-2]\n" if(exists $da{$array[0]} and $str!~/$array[0]\t$array[1]\t$array[-2]/);

，结果是：
R8112033 3
R8112038 1
R8112056 1
R8112057 1

第二种常见样式：

if(exists $da{$array[0]} and $str!~/$array[0]\t$array[1]\t$array[-2]/)
  {
    $da{$array[0]}++;
    $str="\n$array[0]\t$array[1]\t$array[-2]\n";
  }

结果是：
R8112033 2
R8112038 1
R8112056 1
R8112057 1

第二个结果是我想要的，但是我不知道为什么它不能以第一种样式工作。

这是数据文件：
R8112033 EGFR T790M missense_mutation否
R8112033 EGFR L858R missense_mutation否
R8112033 TP53-missense_mutation否
R8112038 KRAS G12D missense_mutation否
R8112056-L858R missense_mutation是
R8112057 KRAS G12C missense_mutation否

这是完整的代码：

use strict;
use warnings;

my $infile=shift;
my %da;
my $str=0;
open IN,"$infile" or die $!;
while(<IN>)
{
        s/\r|\n//g;
        my @array = split /\t/,$_;
        $da{$array[0]}=0 if($array[-3]=~/\w/);
}
close IN;

open IN,$_;
        $da{$array[0]}++ and $str="\n$array[0]\t$array[1]\t$array[-2]\n" if(exists $da{$array[0]} and $str!~/$array[0]\t$array[1]\t$array[-2]/);
        #if(exists $da{$array[0]} and $str!~/$array[0]\t$array[1]\t$array[-2]/)
        #{
        #        $da{$array[0]}++;
        #        $str="\n$array[0]\t$array[1]\t$array[-2]\n";
        #}
}
close IN;

for my $key (sort keys %da)
{
        print "$key\t$da{$key}\n";
}

感谢您的帮助。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

if-statement perl