Discussion :

[helkha86]

merci

[Lolo78]

Il y a une erreur dans ce bout de code:

Code :

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

1
2
3
4
5
6
7
8
9
$LINE= <FILE>;
 
 
while(<FILE>){
# Ignore the underlines and blank lines:
if ($LINE =~ /^\s*-+\s*$/)
{
next;
}

$LINE= <FILE>;: Tu inities une fois $LINE avec la première ligne du fichier
while(<FILE>) : tu lis le fichier et mets les lignes dans $_ ET PAS dans $LINE
($LINE =~ /^\s*-+\s*$/) : tu appliques tes expressions régulières à la première ligne lue, pas aux suivantes qui sont dans $_.

Il faut écrire:

Code :

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

1
2
3
4
5
$LINE= <FILE>;
 
while($LINE = <FILE>){
 
     next if $LINE =~ /^\s*-+\s*$/;

Le changement important est while($LINE = <FILE>) qui te permet d'avoir tes lignes successivement dans la variable $LINE.

[helkha86]

Merci a Vous tous de votre participation