Contenu de variable qui change.

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:

---

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;

---

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:

---

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:

---

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ï

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

Merci pour ta réponse rapide Jedai !