in reply to Re: Count ID values
in thread Count ID values

use strict; 
use warnings; 
use Data::Dumper; 
open FH,"<file" or die "can't Open $!\n"; 
my $line; 
my %hash; 
while($line=<FH>) 
{ 
     
      
         my($value,$value2)=split(' ',$line); 
         $hash{$value}+=$value2; 
      
} 
 
foreach my $key (keys%hash) 
{ 
    print "$key => $hash{$key}\n" 
}

[download]

Replies are listed 'Best First'.
Re^3: Count ID values
by ungalnanban (Pilgrim) on Mar 20, 2010 at 06:54 UTC
    See the following Code: 
    open(FH,"file");

foreach $line (<FH>) {
     if($line=~/^Db/)   ### Get only the ID lines.
     {
         ($id,$count)=split(' ',$line);
         $count{$id}+=$count;
     }
}

print "ID\t\tCount\n";


foreach $key (keys%count)
{
    print "$key\t$count{$key}\n"
}

    [download]
    --$ugum@r--
[reply]
[d/l]

In Section Seekers of Perl Wisdom