Re: Sum problem

[Chandru]

Hey

problem with your for loop

#!/usr/bin/perl -w
while (<>) {
  chomp;
  ($name,$value)=split(/\t/);
  $ha{$name}+=$value;
}
foreach $i(sort keys %ha)
{
       print$i."  ".$ha{$i}."\n";
}

- Chandru

Andrej Kastrin wrote:

Dear Perl users,

I have 2 columns, tab separated file which looks like

A 4
B 3
C 1
A 3
B 3

First column refers to name and second to value. I have to calculate total score on each 'name'; in my case:

A 7
B 6
C 1

Here is the code; but it doesn't work.
#####################################
while (<>) {
   chomp;
   ($name,$value)=split(/\t/);
   $values{$name}+=$value;
}

foreach $w (sort by_number keys %values) {
   print "$w\t$value{$w}\n"
}
#####################################

Thanks in advance for any suggestions or notes.

Andrej

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>