Date création : 11-11-2007 00:00:00
Date de la dernière modification : 21-11-2007 20:30:09
 Vous êtes dans : Langage Perl Astuces / NombresConversion d'un nombre entier décimal en binaire (base 2)
Voici une fonction qui vous permettra la conversion d'un numéro entier décimal en base binaire.
La fonction prend en argument un numéro entier et retourne la valeur binaire correspondante.
my $nb_bin = dec_en_binaire(N); # N est un nombre entier décimal
sub dec_en_binaire {
my $binaire = unpack("B32", pack("N",shift));
$binaire =~ s/^0+(?=\d)//; # éliminer les zéros initiaux
return $binaire;
} |
|
