Discussion :

[jamsgoodon]

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

[Jedai]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

while ($file = <IN>){

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

--
Jedaï

[Philou67430]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

	   print $line."\n";

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

[nibroc]

Bonjour,
De toute façon, avec le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

use warnings;

il devrait y avoir un message explicite.
Non ?
Nibroc

[Philou67430]

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

[jamsgoodon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!