perl 两列对应的元素，第一列元素相同时，对应第二列元素相加

赛萌

回复 8# MMMIX


    您帮我看看10楼的呗

MMMIX

回复 10# 赛萌


    把需要的信息都记录在一个地方, 然后再输出就是了, 例如:

while (<>) {
    ...
    $expression{$its[0]}->[0] += $its[1];
    ($expression{$its[0]}->[1])++;
}

for (sort keys %expression) {
    print $output $_, " ", $expression{$_}->[0], " ", $expression{$_}->[1], "\n";
}

815138698

回复 8# MMMIX


   错了 ==   \t  

赛萌

回复 12# MMMIX

$output $_这是什么啊
   

MMMIX

回复 14# 赛萌


    怎么把 filehandle 换成 filehandle reference 你就不认识了呢?

赛萌

回复 15# MMMIX

map {print OUT "$_\t$expression{$_}0->[0]\t$expression{$_}->[1]\n"} sort (keys %expression);

结果是
21        ARRAY(0x165d49c)0->[0]        1
22        ARRAY(0x165d5a4)0->[0]        2
23        ARRAY(0x1683c5c)0->[0]        2
24        ARRAY(0x166700c)0->[0]        1
   

赛萌

回复 15# MMMIX


    不好意思，我多加了个零，我是不是可笨了

赛萌

回复 17# 赛萌

赛萌

回复 15# MMMIX


    您是在北京吗，请您吃饭可以吗？

MMMIX

回复 19# 赛萌


    是美女就吃