Bonjour,

J'ai un script qui fait appel à un software : ClustalW. Ce dernier renvoie les valeurs de ses calculs à l'écran. J'aimerais savoir si il est possible de les récupérer dans un fichier. Le STDOUT de sortie est l'écran comment puis-je le modifier? Je n'ai pas trouvé de réponse dans la FAQ's.

J'ai trouvé sur le net cette explication
http://www.dil.univ-mrs.fr/~chris/Perl/Fichiers.htm
La procédure écrit une ligne sur le périphérique standard de sortie <STDOUT>.
Avant l'instruction "select (FICHIER);", le message apparait bien sur l'écran qui est toujours le périphérique de sortie standard.
Par contre, l'exécution de cette instruction effectue une redirection de <STDOUT> vers le fichier explicitement spécifié. La seconde écriture se fait sur le fichier en question.
Voici le script dans lequel j'aimerais modifier STDOUT
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
use strict;
use Bio::Tools::Run::Alignment::Clustalw;
 
open (FICHIER,">value.txt");
select (FICHIER);
 
my @fichiers = qw(P:/.../test.txt);
 
 
foreach my $fich (@fichiers){
    &ClustalW2 ($fich);
 
}
 
close (FICHIER);
Mais le fichier reste vide et les scores de ClustalW apparaissent à l'écran.


Merci pour votre aide,