Ajouté par BoboTiG le 06/04/2011 à 02:01
#
# Fonction pour formater une taille de façon élégante et dans la
# bonne mesure.
#
sub taille {
my @symbol = ('o', 'Kio', 'Mio', 'Gio', 'Tio', 'Pio', 'Eio', 'Zio', 'Yio');
my $exp = 0;
my $nicesize = 0;
if ( $weight > 0 ) {
$exp = int(log($weight) / log(1024));
$nicesize = $weight / (1024 ** $exp);
}
return sprintf '(%0.2f %s)', $nicesize, $symbol[$exp];
}