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
Voici le script dans lequel j'aimerais modifier STDOUTLa 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.
Mais le fichier reste vide et les scores de ClustalW apparaissent à l'écran.
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);
Merci pour votre aide,
Partager