Início / coding / Perguntas / 79587294
Accepted
Rawley Fowler
Asked: 2025-04-23 03:17:49 +0800 CST

Como substituir STDOUT por um objeto IO::Tee?

  • 772

Tenho um programa muito grande que grava muitas coisas em STDOUT, e gostaria de poder enviar toda essa saída para STDOUTe para um FILE. Decidi usar IO::Teepara criar o identificador gravável compartilhado:

use IO::Tee;

pipe(my $reader, my $writer);
my $new_stdout = IO::Tee->new(\*STDOUT, $writer);

*{STDOUT} = $new_stdout;

print "foo";

print(do { local $\; <$reader> });

No entanto, isso causa uma recursão profunda e trava o programa. Então, em vez disso, não consigo referenciar *STDOUT, e ele cria:

use IO::Tee;

pipe(my $reader, my $writer);
my $new_stdout = IO::Tee->new(*STDOUT, $writer);

*{STDOUT} = $new_stdout;

print "foo";

print(do { local $\; <$reader> });

Isso cria o aviso: Undefined value assigned to typeglob at ... line 42, e quando eu uso Data::Printerpara descrever $new_stdout, é undef. Como posso fazer isso?

perl

1 respostas

  1. Best Answer

    Substituir

    IO::Tee->new( \*STDOUT, $writer )

    com

    IO::Tee->new( *STDOUT{IO}, $writer )

    Mas você tem uma série de outros problemas.

    • Você precisará esvaziar o pipe antes do final do programa ou correrá o risco de ficar travado.
    • Você precisará fechar o pipe em algum momento se quiser continuar lendo até o final do texto.
    • Talvez você queira desabilitar o buffer para o novo identificador ( $new_stdout->autoflush;).

    [apenas canalizar sua saída para tee] seria o ideal... Mas esperamos poder empacotar isso como uma biblioteca, de modo que possamos, por exemplo, usar Stdout::Replace

    package Stdout::Replace;

use IPC::Open3 qw( open3 );

my $pid = open3( local *CHILD_STDIN, ">&STDOUT", ">&STDERR", "tee", "file.out" );
open( STDOUT, ">&", *CHILD_STDIN );  # dup2
close( CHILD_STDIN );
STDOUT->autoflush();

END {
   close( STDOUT );
   waitpid( $pid, 0 );
}

1;

    Demonstração:

    $ cat file.out
cat: file.out: No such file or directory

$ perl -I lib -Mv5.14 -e'use Stdout::Replace; say "foo";'
foo

$ cat file.out
foo

    Você também pode duplicar CHILD_STDIN em STDERR, se desejar.

    Você pode salvar e restaurar o STDOUT original da seguinte maneira:

    open( my $orig_stdout, ">&", *STDOUT );
...
open( STDOUT, ">&", $orig_stdout );
    • 3

relate perguntas