Home: Perl Programming Help: Intermediate:
Adding Column values and more (not spam thankyou!)



lkhlc
New User

Dec 2, 2013, 8:13 PM


Views: 3545
Adding Column values and more (not spam thankyou!)
Seeking help for the following. Appreciation is massive!

Presented with a flat file that contains two columns.
Column one is a part number.
Column two is a quantity number.
The site contains numerous duplicate part numbers from
various locations. (location itself does not matter)
The need is for a fast a painless way to generate a single
entry for each part number , having totaled the quantity
number, so five locations can be merged into one part number
to show how many total of each part number is 'in stock'.

Example of file:
04054017280,22
04054017500,29
04054018280,94
04054017280,12
04054017500,19
04054018280,24

Desired output:
04054017280,34
04054017500,48
04054018280,118

The file can be anywhere from a few k's to many megs in size.

Seeking a simple, fast and low resources snippet if possible. The output will write to a file. Comma separated data.

Thank you very much for your help in this matter.


Kenosis
User

Dec 2, 2013, 9:33 PM


Views: 3540
Re: [lkhlc] Adding Column values and more (not spam thankyou!)
Code
use strict; 
use warnings; 
 
my ( %hash, @vals ); 
 
while (<>) { 
	chomp; 
	$hash{ $vals[0] } += $vals[1] if @vals = split /,/; 
} 
 
print "$_,$hash{$_}\n" for sort { $a <=> $b } keys %hash;
Usage: perl script.pl inFile >outFIle

Output on your dataset:
Code
04054017280,34 
04054017500,48 
04054018280,118
Hope this helps!


(This post was edited by Kenosis on Dec 2, 2013, 9:43 PM)


lkhlc
New User

Dec 2, 2013, 9:40 PM


Views: 3533
Re: [Kenosis] Adding Column values and more (not spam thankyou!)
Bless you! thank you very much, will run in the morning..