All the Perl that's Practical to Extract and Report
use Perl Log In
chromatic (983)
(email not shown publicly)
http://wgz.org/chromatic/
A Stupid Little Module?
I've been overworked for months. I'm on the road this week. I spoke at a user group meeting last night and spent nearly four hours driving back and forth just to get to the hotel late and I overslept a bit.
These are probably not opportune times to be coding, but adding nicer directory listings to Jellybean, I wondered if there was a module to convert file sizes in raw bytes to nicer suffixed equivalents. Not finding anything called File::Size in the first ten pages of CPAN results, I threw together some tests and wrote my own:
sub describe_size
{
my $size = shift;
return $size if $size < 1024;
for my $unit (qw( k M G T P E ))
{
$size/= 1024;
return int( $size ) . $unit if $size < 1024;
}
}
There's an elegance I like, but if it's not so useful, I won't package it for the CPAN. Opinions? (If you saw an earlier version that skipped terabytes and petabytes, I've already fixed that!)
--Larry Wall in stab.c from the perl source code
Another module doing this... (Score:2)
Convert::SciEng (Score:2, Informative)
Tu Quoque? (Score:3, Informative)
LOL. I had the same problem 2 days ago, and of course ended up writing my own module, Format::FileSize [xmltwig.com], before realizing that Number::Format had a function that's suspiciously similar.
What's with everyone having that same idea this week?
mirod
Reply to This
Elegant (Score:2, Insightful)
Can't comment on whether it needs to be a module or not but that is some beautiful code.
It brought a smile to my face this cool and wet morning in Bristol.
Of course you mean tebibytes and pebibytes... (Score:1)
You probably ought to change
qw( k M G T P E )toqw( Ki Mi Gi Ti Pi Ei )when using binary multiples [nist.gov].whups! (Score:1)
You forgot something.. always idiot-proof :) and also Zettabytes and Yottabytes :)
Opportunity (Score:3, Interesting)
Reply to This