Discussion :

[bigplayer]

bonjour tout le monde.
j'ai un script perl qui fait l'extraction de données à partir d'un fichier texte et puis il copie ces données dans un autre fichier texte.mais le problème c'est qu'il m'affiche une erreur au niveau de l'execution de ce script.ou puis spécifier le chemin du fichier à extraire?
voici le script:

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
#!/usr/bin/perl
 
open FICHIER,"< lettre.txt" or die "Le fichier n'existe pas !";
open WRITER,"> decode.txt" or die "Le fichier ne peut être édité !\n";
$i=0;
while ($ligne = <FICHIER>){
      if($i%2){
               print WRITER $ligne;
      }
      $i++;
}
close FICHIER;
close WRITER;
 
open FICHIER,"< decode.txt" or die "Le fichier n'existe pas !";
while ($ligne = <FICHIER>){
      print $ligne;
}
close FICHIER;

[Leishmaniose]

...mais le problème c'est qu'il m'affiche une erreur au niveau de l'execution de ce script.ou puis spécifier le chemin du fichier à extraire?

commence par nous dire clairement, quelle erreur t'affiche t-il ce script. Parce que je ne vois pas de problème moi !!!

Ah... juste un truc, il est carrément déconseillé de poster dans le forum perl directement. Il faut poster dans les sous forum sinon il y aura du banissement dans l'air...