Salut,

J'ai une probleme, je prendre chaque ligne d'un fichier HTML jauqu'au la fin de fichier pour prendre une titre (<h1>), mais lorsqu'il arrive a la fin du fichier il boucle infinie et affiche le message :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Use of uninitialized value in pattern match (m//) at ./site.pl line 93, <FILE> line 147.
...........................................................................
Use of uninitialized value in pattern match (m//) at ./site.pl line 93, <FILE> line 147.
Line 147 est la fin du fichier
Et mon code est :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
 
$title="\<h1\>"
        do{
                defined($currentLine = <FILE>);
 
                if ($currentLine =~ /^$title/i)
                {
                        print OUT $currentLine;
                        $quit = 1;
                }
        }until ($quit==1);
et la ligne 93, correspond a : if ($currentLine =~ /^$title/i)

Mais, l'erreur existe seulement en certain ficher, quand j'essai avec differents fichiers, certain il y a errur, certain il n'y a pas erreur. Je ne peux pas trouver la faute,

Merci de me corriger
moni