topic PERL script help in Operating System - Linux

PERL script help

Pat Peter — Thu, 16 Feb 2006 14:33:25 GMT

I am once again found wanting in my scripting skills.

I have few files which have data like

tran_type tran_num Suc failure percentage

abc 11 10 5 50
def 12 10 0 100

there are around 10 to 15 files like this.

I need to write a script that would read all the files and combine the data together and generate a single output file containing the summation of all the tran type and number.

Can anyone please help.

-Pat

Re: PERL script help

James R. Ferguson — Thu, 16 Feb 2006 14:46:57 GMT

Hi Pat:

Try this:

# cat perl.pl
#!/usr/bin/perl
use strict;
use warnings;
my ($key, $count);
my %data;
while (<>) {
($key,$count) = split;
$data{$key} += $count;
}
foreach $key (sort keys %data) {
print "$key $data{$key}\n";
}

Run as:

./perl.pl file1 file2 file3 ...

Regards!

...JRF...

Re: PERL script help

Hein van den Heuvel — Thu, 16 Feb 2006 14:56:48 GMT

And of course you'd extent that to the other fields:

($key,$count,$suc,$fail) = split;
$data{$key} += $count;
$suc{$key} += $suc;
:, because you woudl have to do a weighted calc.
Just recalculate if needed after reading all.

Hein.

Re: PERL script help

Hein van den Heuvel — Thu, 16 Feb 2006 14:58:31 GMT

[ooop, wrong button. Moderator, please delete prior reply]

And of course you'd extent that to the other fields:

($key,$count,$suc,$fail) = split;
$data{$key} += $count;
$suc{$key} += $suc;
:
print ... $suc{$key}...

I woudl not add the percentages, because you would have to do a weighted calc.
Just recalculate if needed after reading all.

Hein.