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>
In Section
Seekers of Perl Wisdom