[geek] How apache 2's autoindex converts bytes to kilobytes and megabytes.

[darxus]

This was tedious to figure out, so hopefully I can spare someone else. In perl:

if ($sizeunit eq 'K') {
  $realsize = round($realsize/1024);
} elsif ($sizeunit eq 'M') {
  $realsize = round($realsize/1024/1024);
}

sub round {
  my($number) = shift;
  my $left = (split('\.',$number))[0];
  if (length($left) <= 1) {
    return int( $number * 10 + .5 )/10;
  } else {
    return int( $number + .5 );
  }
}

I'm convinced there is no simpler way (I read the whole sprintf man page at least twice).

I'm writing a monitoring script that checks the sizes of files on a web server. So I figured I should do a little random validation that apache is reporting the same file size that I'm getting from length($content). So I needed to convert length($content) to the same form I get from apache.

Comments

[ectropy.livejournal.com]

There's no way to include such basic math functions as Round() or use the modulo operator?

[darxus.livejournal.com]

Perl has no round(). The faq entry tells you how to write it. I'm not great with modulo, so it's not obvious to me how it would be useful.