Discussion :

[mverhaeghe]

Bonjour à tous,

Je cherche à écrire un code qui me permet d'aller récupérer certaines informations dans un fichier à certaines lignes précises. Je cherche sans succès la fonction qui me permet de me positionner trois lignes après la position courante par exemple.

En gros, voici l'algo du programme :
Ouvrir le fichier

Se positionner à la troisième ligne
Récupèrer une chaine de caractères
Se positionner à la 9èm ligne
Récupèrer une nouvelle chaine de caractères
Se positionner à la première série de délimiteurs

Recommencer la boucle

Si quelqu'un a une idée, je suis preneur.

Cordialement,

[Philou67430]

Je ne suis pas sur d'avoir compris à quoi servait la recherche de délimiteur, mais si c'est pour identifier un nouveau bloc où il faudra chercher la 3e et 9e ligne, ceci devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
$bloc_line = $.;
while (<>) {
  if ($. == $bloc_line + 2) {
    # Récupèrer une chaine de caractères
  }
  if ($. == $bloc_line + 3) {
    # Récupèrer une nouvelle chaine de caractères
  }
  if (/delimiter/) {
    $bloc_line = $.;
  }
}

[mverhaeghe]

si c'est pour identifier un nouveau bloc où il faudra chercher la 3e et 9e ligne,

==> C'est exactement ça. J'ai incorporé le code que tu as donnée, mais j'ai l'impression qu'il pars dans une boucle infinie, il me manque un truc.

Voici le code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
while(defined(my $fic=readdir REP)){
  my $f="${rep}/$fic";
  if($fic=~/.*\.txt/){
    open FIC, "$f" or warn "$f E/S: $!\n";
	$bloc_line = $.;
	while (<>) {
	  if ($. == $bloc_line + 3) {
		# Récupèrer une chaine de caractères
		print $.;
	  }
	  if ($. == $bloc_line + 9) {
		# Récupèrer une nouvelle chaine de caractères
		print $.;
	  }
	  if (/==================================================/) {
		$bloc_line = $.;
	  }
	}	
    close FIC;
  }
}

[Philou67430]

Remplace la ligne

Code :

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

	while (<>) {

par

Code :

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

	while (<FIC>) {

(au minimum).
N'ayant pas donné de code source, j'ai pris la liberté de faire un code générique qui traite par défaut la liste des fichiers fournis en paramètre (opérateur <>).

[mverhaeghe]

Ça marche mieux, effectivement.
Par contre, le + n'est pas compris correctement (addition au lieu d'un déplacement):

Use of uninitialized value in addition (+)

J'ai essayé de me servir de la commande seek pour me déplacer dans le fichier, sans succès. D'après ce que j'ai pu voir, il me suffit de faire :

Code :

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

seek(<FIC>,3,1);

pour sauter trois lignes, mais il reste sur un saut de trois caractères.

[Philou67430]

Ça marche mieux, effectivement.
Par contre, le + n'est pas compris correctement (addition au lieu d'un déplacement):

Le + est très bien compris. C'est juste qu'une des valeurs ajoutée n'est pas définie correctement.
Le principe de l'algo est le suivant :
- ouvrir le fichier
- initialiser le numéro de ligne du début du bloc avec le numéro de ligne du fichier
- boucler sur toutes les lignes
+ si le numéro de ligne courante est égal au numéro de ligne du début de bloc + 2 (et non pas 3), alors je suis sur la 3e ligne du bloc
+ si le numéro de ligne courante est égal au numéro de ligne du début de bloc + 8 (et non pas 9), alors je suis sur la 9e ligne du bloc

Je vais essayer de voir ce qui ne fonctionne pas avec ton script, mais il serait bon que tu repostes le nouveau code corrigé pour que je soit sur d'utiliser le bon.

J'ai essayé de me servir de la commande seek pour me déplacer dans le fichier, sans succès. D'après ce que j'ai pu voir, il me suffit de faire :

Code :

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

seek(<FIC>,3,1);

pour sauter trois lignes, mais il reste sur un saut de trois caractères.

La commande seek positionne le pointeur de fichier avec un indice en "octet" pas en nombre de ligne. Oublie son usage rapidement pour un fichier texte.