Discussion :

[Whaouu]

Bonjour, à tous,

Voilà je désire trouver une chaîne dans un fichier binaire et je pense que la fonction read me permet ce genre de manipulation.

Code :

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

1
2
3
open (FILE, "</tmp/toto") or die "Lecture du fichier impossible";
read (FILE, $tempo, 4, 610);
print "$tempo";

Mon problème réside dans l'utilisation de OFFSET qui ne semble pas fonctionné, car la lecture de mon fichier débute systématiquement au début du fichier sans tenir compte du décalage.

Par avance merci.

[djibril]

je connais pas la fonction read, mais pourquoi pas lire ton fichier ligne par ligne et faire une regex pour rechercher ton motif???

[Whaouu]

Je ne connais pas le contenu de ce que je cherche, mais sa position dans le fichier oui, donc l'usage d'une regex m'est impossible.

Petite précision, j'utilise ActivePerl-5.8 sous Linux.

[djibril]

Je ne connais pas le contenu de ce que je cherche, mais sa position dans le fichier oui, donc l'usage d'une regex m'est impossible.

Qu'entends tu par la position dans le fichier???? Le numéro de la ligne???

[Whaouu]

Merci pour ton aide,

C'est un fichier binaire, et ce que je cherche commence a l'Offset E03 en Hexa ou 3587 ou Déc et se termine en E07.

[djibril]

je ne maitrise pas les fichiers binaires!!!
Ce que je veux savoir, il est formé comment? sur plusieurs ligne ou sur une seule ligne??
Si c'est plusieurs lignes, veux tu une ligne du fichiers ou bien des infos se trouvant sur plusieurs lignes?
Bref en fonction de cela une petite regex te reglera ton souci.
peux tu afficher une portion de ton fichier? ça me donneraune idée!!!

[davlar_99]

Voir l'exemple 8-5 de l'adresse suivante:
http://www.oreilly.com/catalog/cookbook/chapter/ch08.html

Ils explique comment trouver une ligne à partir d'une adresse dans un fichier binaire.

David

[djibril]

Voir l'exemple 8-5 de l'adresse suivante:
http://www.oreilly.com/catalog/cookbook/chapter/ch08.html

Ils explique comment trouver une ligne à partir d'une adresse dans un fichier binaire.

David

Le probleme est qu'on ne sait pas concretement cequ'il cherche d'ou mes questions du dessus. Pas mal ton lien pour les debutants!!!

[Jedai]

Tu as mal compris le OFFSET de read() :

Code :

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

1
2
3
4
5
6
 
read FILEHANDLE,SCALAR,LENGTH,OFFSET
 
...
 
An OFFSET may be specified to place the read data at some place in the string other than the beginning.

Autrement dit cet OFFSET ne concerne pas le fichier lu, mais l'emplacement des données récupérés dans le scalaire de sortie.

Pour manipuler un fichier binaire, il est essentiel de le mettre en mode binaire (pour éviter les conversions de fins de ligne qui décalent tout). Ensuite tu peux utiliser seek() pour te placer au bon endroit dans le fichier et ensuite read() pour lire ce que tu veux :

Code :

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

1
2
3
4
5
 
open( FILE, '<:bytes' ,"/tmp/toto" ) or die "Lecture du fichier impossible";
seek( FILE, 3587 );
read( FILE, $tempo, 4 );
print "$tempo";

Simple et court !

--
Jedaï

[Whaouu]

Tu as mal compris le OFFSET de read() :

Code :

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

1
2
3
4
5
6
 
read FILEHANDLE,SCALAR,LENGTH,OFFSET
 
...
 
An OFFSET may be specified to place the read data at some place in the string other than the beginning.

Autrement dit cet OFFSET ne concerne pas le fichier lu, mais l'emplacement des données récupérés dans le scalaire de sortie.

Pour manipuler un fichier binaire, il est essentiel de le mettre en mode binaire (pour éviter les conversions de fins de ligne qui décalent tout). Ensuite tu peux utiliser seek() pour te placer au bon endroit dans le fichier et ensuite read() pour lire ce que tu veux :

Code :

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

1
2
3
4
5
 
open( FILE, '<:bytes' ,"/tmp/toto" ) or die "Lecture du fichier impossible";
seek( FILE, 3587 );
read( FILE, $tempo, 4 );
print "$tempo";

Simple et court !

--
Jedaï

Tu as entièrement raison ! j'avais mal interprété l'utilisation de l'offset de read, avec le seek (que je comptais utilisé si je ne parvenais avec read) ça fonctionne à merveille, je dois juste utilise le paramètre 0 pour indiquer une position absolue.

Ce qui nous donne :

Code :

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

1
2
3
4
open( FILE, '<:bytes' ,"/tmp/toto" ) or die "Lecture du fichier impossible";
seek( FILE, 3587, 0 );
read( FILE, $tempo, 4 );
print "$tempo";

Merci pour votre aide à tous qui est très sympa !

[GLDavid]

Un petit tag Résolu si c'est OK, merci d'avance.