小编c11*_*1cc的帖子

我已经写了这两个，但他们得到了不同的结果。我不确定哪里错了。

对于第一种样式，我将操作放在“ 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 …