Discussion :

[noOneIsInnocent]

Bonjour

je voulais savoir si il existait en perl une méthode native qui permet de convertir des hexa en binaire ?
J'ai vu qui avait la méthode sprintf mais j'avoue que je n'ai pas trouvé l'option qu'il me faut

Et pour être plus précis j'ai un format de ce type là en entrée : 0xffffffff

merci

[Schmorgluck]

Yup, en combinant la fonction oct, et la fonction sprintf utilisée avec la balise %b.

oct interprête (en tout cas essaie d'interpéter) la chaîne reçue en argument comme un nombre octal, en ignorant les caractères blancs initiaux, sauf si les premiers caractères non-blancs sont "0b", auquel cas la chaîne est interprétée comme du binaire, ou "0x", auquel cas la chaîne est interprétée comme de l'hexadécimal. oct retourne la valeur entière correspondant à la chaîne.

La balise %b de la chaîne de format de sprintf génère une représentation en binaire du nombre reçu en argument.

Donc, vu que ton entrée en hexadécimal commence déjà par "0x" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$binaire=sprintf "%b",oct $hexadecimal;

Si ça n'était pas le cas, il suffirait de l'ajouter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$binaire=sprintf "%b",oct "0x".$hexadecimal;

Il pourrait dans ce cas être utile de virer les blancs initiaux éventuels :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$hexadecimal=~s/^\s+//;
$binaire=sprintf "%b",oct "0x".$hexadecimal;

[noOneIsInnocent]

merci beaucoup et bonne journée