Centralisation des mémos



[Perl] Fonction pour formater une taille de façon élégante et dans la bonne mesure

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]; }

moc.liamg@gitobob - Accueil - Rechercher - Proposer un mémo - 192 mémos (1)