http://qs321.pair.com?node_id=1059107


in reply to Re: GB, MB, KB and on..
in thread GB, MB, KB and on..

Fix if size is larger than PB. <code> sub prettyBytes { my $size = $_[0]; foreach ('b','kb','mb','gb','tb','pb') { last if $size < 1024; $size /= 1024; } return sprintf("%.2f",$size)."$_"; } <code>