Problème avec la fonction read.

Version imprimable

22/09/2005, 16h46
Whaouu

Problème avec la fonction read.
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:

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.
22/09/2005, 17h11
djibril

je connais pas la fonction read, mais pourquoi pas lire ton fichier ligne par ligne et faire une regex pour rechercher ton motif???
22/09/2005, 17h27
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.
22/09/2005, 17h30
djibril

Citation:

Envoyé par 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. :(

Qu'entends tu par la position dans le fichier???? Le numéro de la ligne???
22/09/2005, 17h39
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.
22/09/2005, 17h43
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!!!
22/09/2005, 17h57
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
22/09/2005, 17h58
djibril

Citation:

Envoyé par 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

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!!!
22/09/2005, 21h15
Jedai
Tu as mal compris le OFFSET de read() :
Code:

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:

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 ! :D

--
Jedaï
23/09/2005, 10h23
Whaouu
Citation:
Envoyé par Jedai

Tu as mal compris le OFFSET de read() :

Code:

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:

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 ! :D

--
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:

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 ! :wink:
23/09/2005, 10h33
GLDavid

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