home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78a98.iso / Wtestowe / Clico / UNIX / SAMBA / SOURCE / SAMBA.TAR / samba-1.9.17 / examples / printer-accounting / acct-sum < prev    next >
Text File  |  1996-07-22  |  695b  |  30 lines
  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.  
  30.