Discussion :

[kek_net]

Bonjour à tous, voilà j'ai un problème de lecture de fichier en perl. Je dois lire un fichier binaire qui contient des suites d'entiers codés sur 1 octets. Qd je fait un sysread de ce fichier, en lui disant de ne lire qu'un octet, il me met la valeur dans une variable caractère, il affiche l'entier en code ascii. Ce n'est pas possible de lire dans le fichier binaire et d'assigner des entiers plutot que des caratères?

[Jedai]

On ne peut pas lire un entier, on ne peut lire que des suites d'octets, donc de "caractères". Pour obtenir l'entier correspondant à un octet utilise ord(). Si tu stocke des entiers sur plusieurs octets, alors il faut utiliser unpack() pour convertir la string en tableau de valeurs.
pack()/unpack() sont très pratiques pour manipuler des données en binaire. Par exemple, dans ton cas il est sûrement préférable de lire plus d'un octet et d'utiliser unpack() pour convertir la string résultante en un tableau d'entier.
Jette un coup d'oeil à la doc :
fonction unpack (perldoc -f unpack)
tutoriel sur (un)?pack() (perldoc perlpacktut)

--
Jedaï

[pospos]

ca depasse un peu les besoins du posteur original, mais dans le theme du decodage de données binaires je ne saurais que trop vous conseiller le module Parse::Binary (et en particulier Parse::Binary::FixedFormat, suffisant dans la plupart des cas), et dans un genre un poil different (et plus rapide), Convert::Binary::C

[kek_net]

ok merci beaucoup pour vos réponses, j'ai réussi ce que je voulais faire grace à la fonction unpack() de perl.

[kek_net]

Bonjour, voilà j'ai utilisé le principe inverse qui consiste à lire des données dans une db, ensuite les formater pour les écrire dans un fichier binaire. Pour formater les données, j'utilise la fonction pack() ex: pack("n",$row[2]);
Tout fonctionne bien sauf pour la valeur 10. quand j'ai un 10 dans la db, le programme le format avec le pack(), ensuite je print dans mon fichier seulement voilà dans mon fichier il a ajouté un saut de ligne. du coup mon fichier ne fait plus la taille requise et je ne sais plus l'utiliser... je sais que le 10 est le saut à ligne en ascii mais je ne vois pas pourquoi il ajoute un saut de ligne à mon fichier vu que le 10 a été formaté.

[Jedai]

C'est probablement parce que tu écris en mode texte dans tes fichiers (et que tu es sous windows).
Pour ouvrir un fichier en mode binaire :

Code :

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

1
2
3
 
open my $filehandle, '>:raw', "chemin du fichier"
    or die "$!\n";

Pour mettre un fichier $filehandle en mode binaire :

Code :

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

1
2
3
4
 
binmode $filehandle;
# ou pour un glob :
binmode FILEHANDLE;

Pour mettre un fichier en mode texte :

Code :

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

1
2
 
binmode $filehandle, ':crlf';

(N'oublie pas de lire en mode binaire aussi)
--
Jedaï