Discussion :

[kafifi]

Bonsoir à tous,

J'ai un pb avec le code ci-dessous, pourtant trivial.

Dans la boucle, je récupère correctement le n° de série dans $line, mais lorsque je sors de la boucle, $line est vide ! De ce fait, mon code ne marche pas, et affiche :
Voici le SN : 123456
Voici le SN : empty

J'ai du passer à côté d'une énormité, mais je ne vos pas laquelle. Pourriez-vous m'aider ?

Merci.

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
 
my $line = "empty"; 
my $file = "/sn_file.txt";
open (F, "< $file");
while (my $line = <F>)
 {
 #Parcourir ligne par ligne le document, rechercher et isoler le n° de série
 if ( $line =~ /^SN/ ) 
  {
   substr($line,0,6)="";   # Supprimer les 4 caractères avant le SN
  substr($line,32,1000)="";  # Supprimer tous les caractères situés après le SN
    chomp($line); 
  print "Voici le SN : $line"; # debug  
  }
 }
close F; 
 
print "\nVoici le SN : $line";
print "\n";print "\n";
exit;

[Jedai]

C'est simplement parce que tu déclares (avec my()) $line comme variable lexicale spécifique à la la boucle (la variable $line dans la boucle et la variable $line à l'extérieur ne sont pas les mêmes) :

Code :

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

1
2
 
while (my $line = <F>)

Soit tu déclares $line à l'extérieur de la boucle (ce que tu as déjà fait) et tu utilises cette variable $line dans la boucle ("while ($line = <F>)"), soit tu utilises une autres variable déclarée hors de la boucle. Je te conseille plutôt cette deuxième solution : d'une part c'est plus propre, tu peux lui donner un nom plus parlant, d'autre part avec la première solution que j'ai évoqué $line vaudra undef après la boucle (puisque c'est la valeur que renvoie <F> lorsqu'on a atteint la fin du fichier) :

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
 
my $last_line = "empty"; 
my $file = "/sn_file.txt";
open (F, "< $file");
while (my $line = <F>)
 {
 #Parcourir ligne par ligne le document, rechercher et isoler le n° de série
 if ( $line =~ /^SN/ ) 
  {
   substr($line,0,6)="";   # Supprimer les 4 caractères avant le SN
  substr($line,32,1000)="";  # Supprimer tous les caractères situés après le SN
    chomp($line); 
  print "Voici le SN : $line"; # debug  
  $last_line = $line;
  }
 }
close F; 
 
print "\nVoici le SN : $last_line";
print "\n";print "\n";
exit;

--
Jedaï

[kafifi]

Mince, c'est gros comme une maison, et je suis passé à côté sans rien voir
=> Je vais bien entendu utiliser une autre variable.

Merci pour ta réponse rapide Jedai !