Programmation.perl : écrire en binaire

Posté par Nicolas Boulay () le 14 octobre 2004

Je cherche à faire un programme qui lit du texte en hexa pour en faire un fichier binaire.

simple :

while(<>)
{
while (/([0-9|a-f]+)\s*/g)
{

syswrite (STDOUT,$1);
}

}

malheureusement, il ne me sort pas du binaire ! J'ai trouver plein de doc sur comment lire du binaire mais pas comment en écrire !
(j'espère juste ne pas à avoir à utiliser pack et unpack...)

> Lire le message (3 commentaires, moyenne: 1).

Cette discussion est archivée, il n'est plus possible de laisser des commentaires.

Note : les commentaires appartiennent à ceux qui les ont postés. Nous n'en sommes pas responsables.

trop lent...

Posté par Nicolas Boulay () le 14/10/2004 à 14:16. (lien). Évalué à 1.

Bon j'ai trouvé tout seul avec pack...

print pack("H4",substr("0" x 4 . $1, -4));

j'ai trouvé tout seul ... avec pack

Posté par Nicolas Boulay () le 14/10/2004 à 14:17. (lien). Évalué à 0.

print pack("H4",substr("0" x 4 . $1, -4));

meuh

Posté par gc (page perso, ) le 15/10/2004 à 08:40. (lien). Évalué à 2.

(j'espère juste ne pas à avoir à utiliser pack et unpack...)

pourquoi ? ils sont justement fait pour ça.

Revenir en haut de page || Retourner aux forums || Retourner au forum Programmation.perl