1#!/usr/bin/perl 2 3while (<>) { 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 14printf "%-15s %5s %8s %8s\n", qw(User Jobs Pages Size); 15foreach $user (sort keys %Jobs) { 16 printf "%-15s %5d %8d %8d \KB\n", 17 $user, $Jobs{$user}, $Pages{$user}, $Size{$user}/1024; 18} 19 20 21print "\n\n"; 22printf "%-15s %5s %8s %8s\n", qw(Printer Jobs Pages); 23foreach $prn (sort keys %Printer) { 24 ($name = $prn) =~ s=.*/==; 25 printf "%-15s %5d %8d\n", 26 $name, $Printer{$prn}, $PrinterPages{$prn}; 27} 28 29 30