Como posso alterar o arquivo de arquivo de saída padrão para uma chamada de sistema no Perl?

Question

Estou tentando alterar o stdout da função do sistema usando o Select. Mas isso não parece estar funcionando. A saída do sistema está sendo exibida no console, em vez de ser redirecionado para o arquivo.

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

Embora eu possa fazer system "dir /a > out.txt", Quero saber por que o código acima não está funcionando.

Answer 1

The select function changes the default filehandle for output. It does not change STDOUT, which points to whatever it points to regardless if it is the default filehandle for output. If you want to change STDOUT, you have to do something like ylebre or Jon's answer.

When you start a child process, it gets the same standard output as the parent. It doesn't care what the default filehandle of the parent is though.

Answer 2

The problem with your code is that system command doesn't capture the output for you. You can use 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 $!;

There are other options to run an external application and obtain read it's output, like the IPC::Open2 and IPC::Open3 modules. They're included in perl by default.

A side note: don't use globs for file handles: they are globals, and globals are evil. Use lexical variables instead (FH vs. $fh). Also, you should use the three argument open instead of two parameters, since the former is safer than the latter.

Answer 3

Maybe this helps

Answer 4

I'm not sure 'select' is what you are looking for in this case. To redirect STDOUT to a file, you can do the following:

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 5

I reassign the file descriptors at the system (not Perl) level:

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

    reopen *STDOUT,  '>', $new_stdout_handle;

Now anything that you fork will think $new_stdout_handle is standard output.

I pasted a full example to gist: http://gist.github.com/129407