Regexp imbriquées durant la lecture d'un fichier

Bonjour,

J'essaye de parcourir un fichier afin d'en extraire une info.
J'arrive à ouvrir le fichier, récupérer des info simples mais là j'ai un petit soucis.

Mon fichier est du genre

Code:

---

1 2 3 4 5 6 7 8

Début Session 9h30 ... Fin Session 9h32 Début Session 14h30 ... info ... Fin Session 14h35

---

Connaissant la valeur de info contenu dans ma variable $info, je veux récupérer l'heure de la fin de la session dans laquelle est cette info.
J'arrive à matcher info mais je n'ai que la ligne sur laquelle elle est contenue.
J'ai essayé de récupérer tout de info jusqu'à 14h35, pour repasser une regexp derrière en modifiant la regexp.
Un truc type :

Code:

---

$exp = "'".$info."'"."* Fin Session"

---

mais sans grande réussite

Mon code ressemble pour le moment à ça

Code:

---

1 2 3 4 5 6 7

open(FILE, "fichier"); while($ligne = <FILE>){ if ($ligne =~ /$info/){ print "Info found, looking for the date..."; #Partie manquante pour trouver la date } close(FILE);

---

Des idées ?

Une solution possible est une seconde boucle while imbriquée.

Quelque chose comme ça (pas testé):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

open(FILE, "fichier"); LINE: while(my $ligne = <FILE>){ if ($ligne =~ /$info/){ while (<FILE>) { next unless /Fin Session/; my $fin = $1 if /Fin Session (\d\dh\d\d)/; # ... faire quelque chose avec $fin next LINE; # retour à la boucle extérieure } } } close(FILE);

---

Yep cette idée de la deuxième boucle fonctionne, merci beaucoup.

D'un point de vue du langage le FILE et LINE correspondent à quoi ?

FILE est siumplement ton file handler pour lire le fichier.

LINE est une étiquette permettant de dire à next de retouner directement à la boucle extérieure (sans LINE, le next reviendrait au while intérieur, ce que l'on ne veut pas faire dès qu'on a trouvé la fin de la session).

Et imaginons que je veuille retrouver la date du début de session, il est possible de parcourir le fichier à l'envers ?

Non, tu ne peux pas revenir en arrière. Mais il n'est pas difficile de stoker les dates de début dans une variable temporaire qui ne sera utilisée que si nécessaire. Comme ceci (troisième ligne):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

open(FILE, "fichier"); LINE: while(my $ligne = <FILE>){ my $debut = $1 if $ligne =~ /Debut Session (\d\d?h\d\d)/; if ($ligne =~ /$info/){ while (<FILE>) { next unless /Fin Session/; my $fin = $1 if /Fin Session (\d\d?h\d\d)/; # ... faire quelque chose avec $debut et $fin next LINE; # retour à la boucle extérieure } } } close(FILE);

---

Remarque: j'ai légèrement changé l'expression régulière de reconnaissance de l'heure pour tenir compte du fait que l'heure pouvait selon les cas avoir 1 ou 2 chiffre(s).

D'accord, bon bah j'ai plus de questions et mon problème est résolu depuis hier donc je vais éditer le topic.

Merci beaucoup en tout cas.

Pour ce genre de traitement courant, il existe un opérateur très utile : l'opérateur d'étendue .. :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

open(FILE, "fichier"); my ($info, $start, $end); while($ligne = <FILE>){ my $in_session = $ligne =~ /Debut Session/ .. $ligne =~ /Fin Session/; if ($in_session == 1) { # Première ligne, on récupère l'heure de début ($start) = $ligne =~ /(\d+h\d+)/; } elsif ($in_session =~ /E0/) { # Dernière ligne, on récupère l'heure de fin et on traite l'info trouvée ($end) = $ligne =~ /(\d+h\d+)/; print "Info found, looking for the date $start to $end" if $info; undef $info; } elsif ($in_session && $ligne =~ /$info/) { $info = $ligne; } } close(FILE);

---