Divide by 1024 and use sprintf to get the rounding.

my $bytes = 82591;

my $kb = $bytes / 1024;

$kb = sprintf('%1.0f', $kb);

print "$kb\n";
[download]

(So 82,591 bytes is 81 Kb, not 83 Kb)

Perl Training in the UK <http://www.iterative-software.com>

That works wonderfully :) Thank you sooo much :)

So, if you want to convert 82591 bytes to kb, you divide by 1024. If you want to convert the result to an integer number, you can use int or sprintf.

------
/me wants to be the brightest bulb in the chandelier!

Vote paco for President!

        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 );
[download]

elbieelbieelbie

If you want nice printed output rounded then the printf "%.0f" deal is a very tidy way to go.

If you are trying to figure allocation blocks, you need to always round up and use the allocation size of where you are going.

For example, I did a program to split up multiple files to put on floppies and so that looked something like.

my $size=-s _;
my $blocks=int($size/512)+1;
[download]

Floppy blocks were 512 bytes and there were 2880 of them on a disk less the formatting.

Also could add a check for a file exactly a multiple of 512 for which this code will reserve an extra block.