如何用IO::Tee对象替换STDOUT实现输出分流？

你的问题核心在于两个点：递归引用导致崩溃，以及IO::Tee参数传递错误导致返回undef，下面直接给出解决方案和原因分析：

问题原因拆解 #

1. 第一段代码递归崩溃：
   当你把IO::Tee对象赋值给*STDOUT后，Tee内部持有的\*STDOUT引用已经指向了这个Tee对象本身——相当于每次输出都会触发Tee向自己写数据，无限递归直到栈溢出。

2. 第二段代码返回undef：
   IO::Tee->new()要求传入的是文件句柄的引用，直接传*STDOUT会在列表上下文被展开为文件句柄的所有类型槽（比如SCALAR、ARRAY等），导致参数格式错误，所以new()返回undef，进而出现Undefined value assigned to typeglob警告。

正确实现代码 #

要解决这个问题，关键是先保存原始STDOUT的独立引用，避免递归，同时正确传递句柄给IO::Tee，还要处理管道的缓冲问题：

use IO::Tee;
use IO::Handle; # 提供autoflush方法

# 保存原始STDOUT的引用，避免递归引用
my $orig_stdout = \*STDOUT;

# 创建管道，设置自动刷新防止输出缓冲
pipe(my $reader, my $writer);
$writer->autoflush(1);
$orig_stdout->autoflush(1);

# 使用原始STDOUT引用创建Tee对象，同时指向管道writer
my $new_stdout = IO::Tee->new($orig_stdout, $writer);

# 替换STDOUT为Tee对象
*{STDOUT} = $new_stdout;

# 测试输出
print "foo\n";
print "bar\n";

# 关闭writer端，让reader知道没有更多数据
close $writer;

# 读取管道内容并打印
print "\n从管道读取到的内容：\n";
while (my $line = <$reader>) {
    print $orig_stdout $line; # 用原始STDOUT避免再次触发Tee
}
close $reader;

# 可选：恢复原始STDOUT
*{STDOUT} = $orig_stdout;

关键细节说明 #

• 保存原始STDOUT：$orig_stdout = \*STDOUT在替换STDOUT前保存了原始句柄的引用，这样Tee指向的是真正的终端/原始输出，不会递归引用自己。
• autoflush设置：管道和STDOUT默认是缓冲的，设置自动刷新能确保输出立即被写入，避免读取管道时卡住。
• 关闭writer端：管道的读取操作会阻塞直到writer端关闭（或者遇到EOF），所以输出完成后必须关闭$writer，才能让<$reader>读到所有数据。

如果你的需求是输出到文件而不是管道，只需要把$writer换成打开的文件句柄即可，逻辑完全一致：

open my $log_fh, '>>', 'output.log' or die $!;
$log_fh->autoflush(1);
my $new_stdout = IO::Tee->new($orig_stdout, $log_fh);

内容的提问来源于stack exchange，提问作者Rawley Fowler