[Jifty-commit] r6263 - in jifty/trunk: bin

[Jifty commits]

Author: sartak
Date: Fri Jan 23 15:24:28 2009
New Revision: 6263

Modified:
   jifty/trunk/   (props changed)
   jifty/trunk/bin/memory_log

Log:
 r78891 at onn:  sartak | 2009-01-23 15:24:14 -0500
 More readable memory delta


Modified: jifty/trunk/bin/memory_log
==============================================================================
--- jifty/trunk/bin/memory_log	(original)
+++ jifty/trunk/bin/memory_log	Fri Jan 23 15:24:28 2009
@@ -18,6 +18,16 @@
 }
 
 for my $hit (sort { $b->[0] <=> $a->[0] } @hits) {
-    print "$hit->[1]: $hit->[0]\n";
+    my $human_readable = sub {
+        my $bytes = shift;
+        return $bytes if $bytes < 1024;
+        return int($bytes / 1024)    . 'KB' if $bytes < 1024 ** 2;
+        return int($bytes / 1024**2) . 'MB' if $bytes < 1024 ** 3;
+        return int($bytes / 1024**3) . 'GB';
+    }->($hit->[0]);
+
+    $human_readable =~ s/^(?!-)/+/; # add leading + if it's not negative
+
+    print "$hit->[1]: $human_readable\n";
 }