perl 兩列對應(yīng)的元素，第一列元素相同時，對應(yīng)第二列元素相加

賽萌

例如：
21  4
22  3
23  1
22   5
  怎么用perl實現(xiàn)輸出：

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

賽萌

回復(fù) 2# 815138698


    恩，我也是用+=，但是輸出來是沒有相加的，用的輸出，可是printf "%s\b%s\n" 會報錯，

815138698

回復(fù) 3# 賽萌

printf "%s \b %s \n"  中間留著空格呢
   

賽萌

回復(fù) 2# 815138698


    而且沒有相加，是不是我的輸出有問題

賽萌

回復(fù) 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  
還是沒有相加

賽萌

回復(fù) 4# 815138698


    謝謝，我已經(jīng)改出來，萬分感謝

MMMIX

回復(fù) 2# 815138698


    打印的時候為嘛要用 \b?

清泉一邊

回復(fù) 1# 賽萌


   

賽萌

回復(fù) 2# 815138698

還有一個問題，就是還要輸出第一列重復(fù)的元素有多少個，我是分開輸出成了兩個文件，我想輸出到一個文件中，不知道該怎么實現(xiàn)，
#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;
上面是我寫的輸出到了兩個文件中，