Re: Addition of same value

Rita <ritu_minda@xxxxxxxxxxx> wrote:


> I want to make programm Which find all the same values from left side
> and do addition of that value of right side.

> So what will be code for it?


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

my %nums;
while ( <DATA> ) {
my($k, $v) = split;
$nums{$k} += $v;
}

foreach ( sort {$a <=> $b} keys %nums ) {
print "$_ sums to $nums{$_}\n";
}

__DATA__
120.00 14.85
125.00 12.53
125.00 10.576
125.00 15.326
127.00 18.245
127.00 5.243
129.00 10.253
132.00 15.02
135.00 12.356
135.00 12.34
135.00 14.35
137.00 11.21
------------------------------


--
Tad McClellan SGML consulting
tadmc@xxxxxxxxxxxxxx Perl programming
Fort Worth, Texas
.

Relevant Pages