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;