PERL : lecture et écriture d'un fichier

Bonjour tout le monde,
Je cherche à parcourir un fichier (.txt) dans lequel je recupère toutes les chaines de caractère (/(AK.....)/).
Le souci est que le fichier out est crée mais elle est vide alors que dans le fichier IN il y a bien des chaine de caracteres /(AK.....)/.
Est ce que quelqu'un pourrai me dire pourquoi le fichier .txt que je recupére au sorti est vide?
Merci d'avance!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

#!/usr/bin/perl -w use strict; use warnings; my $line; my $file;   open IN,"</home/Bureau/stage_b/perl/DATA/V3_FULL_ACC.TXT" or die "Le fichier n'existe pas !";   open OUT,">/home/Bureau/stage_b/perl/NCBI/FLJ/flj_V3.txt";       while ($file = <IN>){     if($line =~ /(AK.....)/){ print $line."\n"; print OUT $1 ."\n"; # ecrire dans le fichier OUT, les séquences (AK.....) qu'on rencontre dans le fichier IN.   }   }   close (IN); close (OUT);

---

Code:

---

while ($file = <IN>){

---

L'erreur est à cette ligne (sisi, regarde bien... ;) )

--
Jedaï

Si tu ne vois vraiment pas, déplace cette ligne

Code:

---

print $line."\n";

---

avant le if et si tu ne vois toujours pas, relance le programme, tu devrais alors comprendre

Bonjour,
De toute façon, avec le

Code:

---

use warnings;

---

il devrait y avoir un message explicite.
Non ?
Nibroc

Non, car la variable a bel et bien été déclarée plus haut.

Merci ça marche maintenant.
Je suis un gros chèvre ! :)
C'est le $file à la place du $line qui changeait tout.

Code:

---

1 2 3 4 5 6 7 8 9 10

while ($line = <IN>){     if($line =~ /(AK.....)/){ print $line."\n"; print OUT $1 ."\n"; # ecrire dans le fichier OUT, les séquences (AK.....) qu'on rencontre dans le fichier IN.   }

---

Merci beaucoup!:ccool: