Discussion :

[chalme]

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 :

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

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 :

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

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

mais sans grande réussite

Mon code ressemble pour le moment à ça

Code :

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

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 ?

[Lolo78]

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

Quelque chose comme ça (pas testé):

Code :

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

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);

[chalme]

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 ?

[Lolo78]

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).

[chalme]

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

[Lolo78]

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 :

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

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).

[chalme]

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.

[Philou67430]

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

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
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);