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

赛萌

例如：
21  4
22  3
23  1
22   5
  怎么用perl实现输出：

21  4
22  8
23  1

815138698

hash就是吃这口饭的

#!/usr/bin/perl -w
use strict;

my %hash;
while(<DATA>){
        chomp;
        my ($key,$value)=split;
        $hash{$key}+=$value;
}
printf "%s \b %s \n",$_,$hash{$_}  foreach(sort (keys %hash));


__DATA__
21  4
22  3
23  1
22  5

赛萌

回复 2# 815138698


    恩，我也是用+=，但是输出来是没有相加的，用的输出，可是printf "%s\b%s\n" 会报错，

815138698

回复 3# 赛萌

printf "%s \b %s \n"  中间留着空格呢
   

赛萌

回复 2# 815138698


    而且没有相加，是不是我的输出有问题

赛萌

回复 4# 815138698


        my %expression;
    $expression{$its[0]} += $its[1] ;
   printf "%s \b  %s \n",$its[0],$expression{$its[0]} foreach(sort (keys %expression));

输出是：
21    163351  
22    162964  
23    124151  
22    76720  
23    75618  
24    71631  
还是没有相加

赛萌

回复 4# 815138698


    谢谢，我已经改出来，万分感谢

MMMIX

回复 2# 815138698


    打印的时候为嘛要用 \b?

清泉一边

回复 1# 赛萌


   

赛萌

回复 2# 815138698

还有一个问题，就是还要输出第一列重复的元素有多少个，我是分开输出成了两个文件，我想输出到一个文件中，不知道该怎么实现，
#21        163351        TGAAAGACGATGGTAGTGAGA
#22        162964        TGAAAGACGATGGTAGTGAGAT
#23        124151        TGAAAGACGATGGTAGTGAGATA
#22        76720        GCAGTAAGTGGGAGACTCGGTG
#23        75618        TGAAAGACGATGGTAGTGAGATT
#24        71631        CGGGCTTGGCAGAATCAGCGGGGA

die "usage $0 input output1 output2 output3" unless @ARGV==4;
open IN, "$ARGV[0]";
open OUT, ">","$ARGV[1]";

my $n=0;
my @it;
my @its;
my @length;
my @expression=0;
my %expression;

while(<IN>){
        chomp;
        $n++;
        @its=split /\t/,$_;
        push @length,$its[0];
        push @expression,$its[1];       
        print OUT ">chr-$n\t$its[0]\t$its[1]\n$its[2]\n";       
    $expression{$its[0]} += $its[1] ;
}
open OUT,">","$ARGV[2]";
#  printf "%s \b %s \n",$_,$expression{$_} foreach(sort (keys %expression));
   map {print OUT " $_\t$expression{$_}\n"} sort (keys %expression);
  
   open OUT,">","$ARGV[3]";
         my %lengthc;
    ++$lengthc{$_} for @length;
   map{print OUT "$_\t$lengthc{$_}\n"} sort keys %lengthc;
上面是我写的输出到了两个文件中，