examples/printer-accounting/acct-sum

   1 #!/usr/bin/perl
   2
   3 while (<>) {
   4         ($date, $user, $machine, $size, $pages) = split(' ');
   5
   6         $Printer{$ARGV}++;
   7         $PrinterPages{$ARGV} += $pages;
   8
   9         $Jobs{$user}++;
  10         $Size{$user}+= $size;
  11         $Pages{$user}+= $pages;
  12 }
  13
  14 printf "%-15s %5s %8s %8s\n", qw(User Jobs Pages Size);
  15 foreach $user (sort keys %Jobs) {
  16         printf "%-15s %5d %8d %8d \KB\n",
  17                 $user, $Jobs{$user},  $Pages{$user}, $Size{$user}/1024;
  18 }
  19
  20
  21 print "\n\n";
  22 printf "%-15s %5s %8s %8s\n", qw(Printer Jobs Pages);
  23 foreach $prn (sort keys %Printer) {
  24         ($name = $prn) =~ s=.*/==;
  25         printf "%-15s %5d %8d\n",
  26                 $name, $Printer{$prn}, $PrinterPages{$prn};
  27 }
  28
  29