country wrote:
Login ID,Application,CPU Minutes,Percent of Total
s2pe,CTI Production ,8455,21.7%
sybprd01,OMS,5326,13.7%
pctip01,CTI,5098,13.1%
lxsadr54,CTI,1742,4.5%
pipmp01,SSG-IPM,1742,4.5%
maestro,SSG-RAC-Maestro ,1020,2.6%
f2pa,"DB2DARI ""stored procedures"" prod",836,2.1%
pomgp01,SSG-PMD-Omegamon,56,0.1%
pptip01,PTI - Private Client Services,16,0.0%
pbmwp01,BMW,3,0.0%
s2pv,Merva,1,0.0%
I am trying to accumulate the CPU Minutes and/or the
Percent of Totals by Application.
use Text::CSV;
my $csv = Text::CSV->new;
my %HoH;
<DATA>;
while ( $csv->parse( scalar <DATA> ) ) {
( undef, my ($app, $min, $perc) ) = $csv->fields();
${ $HoH{$app} }{min} += $min;
${ $HoH{$app} }{perc} += substr $perc, 0, -1;
}
print "CTI CPU Minutes: $HoH{CTI}{min}\n";
print "CTI Perc. of Total: $HoH{CTI}{perc}%\n";
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
