Kosmetik in Statistik
authorheiko
Mon, 15 Jan 2007 23:00:38 +0000
changeset 40 6c7654c34d3a
parent 39 6a273f1fc025
child 41 ed68e784c318
Kosmetik in Statistik
exigrey.pl
--- a/exigrey.pl	Sat Jan 13 21:37:42 2007 +0000
+++ b/exigrey.pl	Mon Jan 15 23:00:38 2007 +0000
@@ -99,7 +99,8 @@
 	    date: %s
 	      db: $db (ls: %.1f MB / du: %.1f MB)
 	   total: $seen
-    not returned: %d (%d%%)
+        returned: %*d (%2d%%)
+    not returned: %*d (%2d%%)
 oldest (created): %.1f days (%s)
    oldest (used): %.1f days (%s)
 __
@@ -107,8 +108,8 @@
 		    scalar(localtime), 
 		    (-s $db) / (1024*1024),
 		    ((stat $db)[12]*512)/(1024*1024),
-		    $seen - $returned, 
-		    int(100 * ($seen-$returned)/$seen), 
+		    length($seen), $returned, int(100 * ($returned/$seen)),
+		    length($seen), $seen - $returned, int(100 * ($seen-$returned)/$seen), 
 		    ((time - $oldest_c) / 86400), scalar(localtime $oldest_c),
 		    ((time - $oldest_u) / 86400), scalar(localtime $oldest_u);
 	    print "\n" if @ARGV;