On Monday 27 August 2007 12:36:02 country wrote:
> 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%
#!/usr/bin/perl
my %total;
while (<>) {
my ($application, $cpu_minutes) = (split(/,/, $_))[1,2];
$total{$application} += $cpu_minutes;
}
foreach my $application (sort keys %total) {
print "$application => $total{$application}\n";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
