Bonjour a tous,

Je rencontre un petit probleme sur de la reconnaissance de données récupérées dans un fichier texte.

Mon fichier texte comprend:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
GROUPE:
SOUS_GROUPE1: 
    - event1    (option1)
    - event2    (option2)
FIN_SOUS_GROUPE1
SOUS_GROUPE2: 
    - event1    (option1)
    - event2    (option2)
FIN_SOUS_GROUPE2
FIN_GROUPE
J'essaie de récupérer le(s) duo(s) event/option lié(s) au groupe l'encadrant:

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
23
 
     if(/GROUPE:\s+/)
     {
       my $temp = <FIC>;
       while($temp ne "FIN_GROUPE")
       {  
         if($temp =~/(SOUS_\S+):/i)
         {
           my $grp = $1;
           $temp = <FIC>;          
           while($temp ne "END_$grp" )
           {
             if($temp =~ /^\s+- (\S+)\s+\((\S+)\)/i) 
             {
               print "1=$1\n";
               print "2=$2\n";
             }
             $temp = <FIC>;
           }
         }
         $temp = <FIC>;
       }
     }
Il semblerait que mon probleme vienne de la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
$temp ne "END_$grp"
car cette condition n'est jamais remplie et je ne ressors jamais de cette boucle.

Comment puis je lier correctement "END_" avec la variable contenant le nom du groupe ?

Merci d'avance,

cdlt
Guillaume