in reply to File Size Conversion
my $size = ( stat "$filename" )[7]; my $sizeunit = "b"; my $dltime = $size / 430080; if( $dltime < 1.0 ) { $dltime = "less than 1"; } else { $dltime = sprintf "%.0f", $dltime; } $dltime .= " min"; if( $size > 1024.0 ) { $sizeunit = 'Kb'; $size /= 1024.0; } if( $size > 1024.0 ) { $sizeunit = 'Mb'; $size /= 1024.0; } $size = sprintf( "%.1f %s", $size, $sizeunit );
elbieelbieelbie
|
|---|