主页 / coding / 问题 / 79587294
Accepted
Rawley Fowler
Asked: 2025-04-23 03:17:49 +0800 CST

如何用 IO::Tee 对象替换 STDOUT？

  • 772

我有一个非常大的程序，需要向 写入很多内容STDOUT，我希望能够将所有输出都传递给 和STDOUT，并将它们发送到任意的FILE。我决定使用IO::Tee来创建共享的可写句柄：

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> });

然而，这会导致深度递归并使程序崩溃。因此，我无法引用*STDOUT，而是创建了它：

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> });

这会产生警告：Undefined value assigned to typeglob at ... line 42，而当我使用Data::Printer来描述时$new_stdout，结果是undef。我该怎么做？

perl

1 个回答

  1. Best Answer

    代替

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

    和

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

    不过，您还面临许多其他问题。

    • 您需要在程序结束之前清空管道，否则可能会陷入死锁。
    • 如果您要继续从管道读取直到 EOF，则需要在某个时候关闭管道。
    • 您可能想要禁用新句柄的缓冲（$new_stdout->autoflush;）。

    [只需将其输出通过管道传输到tee] 将是理想的...但我们希望能够将其打包为一个库，这样我们就可以使用 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;

    演示：

    $ 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

    如果您愿意的话，您也可以将 CHILD_STDIN 复制至 STDERR。

    您可以按如下方式保存和恢复原始 STDOUT：

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

相关问题