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 : 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
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);