#!/usr/bin/perl -w
use diagnostics;
use strict;

my $sum0 = 0;
my $sum1 = 0;

printf "%-9s\t%-35s\t%8s\t%14s\n", "Login ID", "Application", "CPU Min
+utes",
  "Percent of Total";
print "-" x 88 . "\n";

while (<DATA>) {
    tr/%//d;
    chomp;
    next if /^Login/;
    my @F = split /,/, $_;

    $sum0 += $F[2];
    $sum1 += $F[3];

    printf "%-9s\t%-35s\t%5s\t\t%4.1f\n", "$F[0]", "$F[1]", "$sum0", "
+$sum1";

}

__DATA__
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%
[download]