hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Removed superfluous "total" line. 

Fixed usage message.
This commit is contained in:
hjp 2001-01-19 19:06:01 +00:00
parent 398600d117
commit 7d45fbce12
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
agestat/agestat.pl
View File

@ -1,4 +1,7 @@
#!@@@perl@@@ -w #!@@@perl@@@ -w
#
# $Id: agestat.pl,v 1.4 2001-01-19 19:06:01 hjp Exp $
#
use strict; use strict;
use File::stat; use File::stat;
@ -18,7 +21,7 @@ if (!defined($opts{scale})) {
} elsif ($opts{scale} eq 'M') { } elsif ($opts{scale} eq 'M') {
$scale = 1024*1024; $scale = 1024*1024;
} else { } else {
print STDERR "Usage: $0 [-atime|-mtime] [-scale=(k|m)]\n"; print STDERR "Usage: $0 [-atime|-mtime] [-scale=(k|M)]\n";
exit 1; exit 1;
} }
@ -75,5 +78,9 @@ for (my $i = 0; $i <= $#hist; $i++) {
printf("%2d\t%s\t%12.0f\t%5.1f\t%12.0f\t%5.1f\n", $i, printf("%2d\t%s\t%12.0f\t%5.1f\t%12.0f\t%5.1f\n", $i,
logtime2str($i), $h/$scale, $h * 100 / $sum, $c/$scale, $c * 100 / $sum); logtime2str($i), $h/$scale, $h * 100 / $sum, $c/$scale, $c * 100 / $sum);
} }
print("#-------------------------------------------\n");
printf("total\t\t%12.0f\t%5.1f\n", $sum/$scale, $sum * 100 / $sum); # $Log: agestat.pl,v $
# Revision 1.4 2001-01-19 19:06:01 hjp
# Removed superfluous "total" line.
# Fixed usage message.
#