Comment puis-je modifier le handle de fichier de sortie standard pour un appel système en Perl?

Question

J'essaye de changer le stdout de la fonction de système en utilisant select. Mais cela ne semble pas fonctionner. La sortie du système s'affiche sur la console plutôt que d'être redirigée vers le fichier.

use strict; 
use warnings; 

chdir "C:\\Documents and Settings\\" or die "cannot open the dir\n"; 
open FH, ">out.txt" or die "cannot open out.txt\n"; 
select FH or die " cannot change the stdout\n"; 
system "dir /a" ; 

Bien que je peux faire system "dir /a > out.txt", je veux savoir pourquoi le code ci-dessus ne fonctionne pas.

Answer 1

La fonction select modifie le descripteur de fichier par défaut pour la sortie. Il ne modifie pas STDOUT, qui pointe vers tout ce qu'il pointe vers, qu'il s'agisse du gestionnaire de fichiers par défaut pour la sortie. Si vous voulez changer STDOUT, vous devez faire quelque chose comme ylebre ou la réponse de Jon.

Lorsque vous démarrez un processus enfant, il obtient la même sortie standard que le parent. Il ne se soucie pas de savoir quel est le handle de fichier par défaut du parent.

Answer 2

Je ne suis pas sûr que 'select' soit ce que vous cherchez dans ce cas. Pour rediriger stdout vers un fichier, vous pouvez effectuer les opérations suivantes:

use strict; 
use warnings; 
use IO::Handle; 
open FH, "> out.txt"; 
STDOUT->fdopen(\*FH, 'w') or die $!; 
print "Hello world!\n"; 
system "dir /a"; 

Hope this helps!

Answer 3

Peut-être this aide

Answer 4

Le problème avec votre code est que la commande system ne saisit pas la sortie pour vous. Vous pouvez utiliser qx//:

use strict; 
use warnings; 

open my $fh, ">", "output.txt" or die $!; 
my $oldfh= select $fh; 
print qx/ls -a/; 
select $oldfh; 
close $fh or warn $!; 

Il y a d'autres options pour exécuter une application externe et d'obtenir lu sa sortie, comme les modules IPC::Open2 et IPC::Open3. Ils sont inclus dans Perl par défaut. A noter: n'utilisez pas de globs pour les poignées de fichiers: ce sont des globals, et les globals sont maléfiques. Utilisez plutôt les variables lexicales (FH vs. $fh). En outre, vous devez utiliser les trois arguments open au lieu de deux paramètres, car le premier est plus sûr que le second.

Answer 5

Je réaffectez les descripteurs de fichiers au niveau du système de niveau (non Perl):

sub reopen($$$) { 
     open $_[0], $_[1]. '&='. fileno($_[2]) or die "failed to reopen: $!"; 
    } 

    reopen *STDOUT, '>', $new_stdout_handle; 

Maintenant, tout ce que vous penserez fourchette new_stdout_handle $ est sortie standard.

J'ai collé un exemple complet essentiel: http://gist.github.com/129407