96 }); |
96 }); |
97 |
97 |
98 $_ = <<__; |
98 $_ = <<__; |
99 date: %s |
99 date: %s |
100 db: $db (ls: %.1f MB / du: %.1f MB) |
100 db: $db (ls: %.1f MB / du: %.1f MB) |
101 total: $seen |
101 total: $seen (100%%) |
102 returned: %*d (%2d%%) |
102 returned: %*d (%3d%%) |
103 not returned: %*d (%2d%%) |
103 not returned: %*d (%3d%%) |
104 oldest (created): %.1f days (%s) |
104 oldest (created): %.1f days (%s) |
105 oldest (used): %.1f days (%s) |
105 oldest (used): %.1f days (%s) |
106 __ |
106 __ |
107 printf $_, |
107 printf $_, |
108 scalar(localtime), |
108 scalar(localtime), |
109 (-s $db) / (1024*1024), |
109 (-s $db) / (1024*1024), |
110 ((stat $db)[12]*512)/(1024*1024), |
110 ((stat $db)[12]*512)/(1024*1024), |
111 length($seen), $returned, int(100 * ($returned/$seen)), |
111 length($seen), $returned, int(0.5 + 100 * ($returned/$seen)), |
112 length($seen), $seen - $returned, int(100 * ($seen-$returned)/$seen), |
112 length($seen), $seen - $returned, int(0.5 + 100 * ($seen-$returned)/$seen), |
113 ((time - $oldest_c) / 86400), scalar(localtime $oldest_c), |
113 ((time - $oldest_c) / 86400), scalar(localtime $oldest_c), |
114 ((time - $oldest_u) / 86400), scalar(localtime $oldest_u); |
114 ((time - $oldest_u) / 86400), scalar(localtime $oldest_u); |
115 print "\n" if @ARGV; |
115 print "\n" if @ARGV; |
116 |
116 |
117 } |
117 } |