我想将我的 Perl 脚本的 stdout 和 stderr 复制到一个文件中，同时将其保留在屏幕上，并且最好在脚本本身中使用一些技巧。 IE。我想要类似的东西
./test.pl 2>&1 | tee foo.bar
但隐藏在 perl 脚本实现中。目前我刚刚编写了一个子程序，它在屏幕上和文件句柄上打印所有消息，但缺点是如果脚本死了，死消息将不会出现在日志中。 有没有办法做到这一点？
【问题讨论】：
标签： perl
请参阅 Perl 手册中的“13.15.9. Tie Example: Multiple Sink Filehandles”部分。
主要要知道的是tie *TEE, "Tie::Tee", @handles;
注意：Tie::Tee 包是你需要自己创建的，代码在本书的同一部分。
注意：然后您可以执行select(TEE)，它将在每个常规print 语句中使用，因此您不需要执行print TEE xxx。
注意：要让任何 STDERRy 输出（包括 die）转到同一个文件句柄，请将 STDERR 更改为 TEE，如下所示：
use Tie::Tee;
use Symbol;
@handles = (*STDOUT);
push(@handles, $handle = gensym( ));
open($handle, ">/tmp/teetest.xxx");
tie *TEE, "Tie::Tee", @handles;
select(TEE);
*STDERR = *TEE;
print "raw print\n";
die "XXXX\n";
输出将是：
raw print
XXXX
文件内容为：
raw print
XXXX
【讨论】：
看看Log::Dispatch
将消息发送到一个或多个输出。
use Log::Dispatch;
# Simple API
#
my $log =
Log::Dispatch->new
( outputs =>
[ [ 'File', min_level => 'debug', filename => 'logfile' ],
[ 'Screen', min_level => 'warning' ],
],
);
$log->info('Blah, blah');
# More verbose API
#
my $log = Log::Dispatch->new();
$log->add( Log::Dispatch::File->new
( name => 'file1',
min_level => 'debug',
filename => 'logfile'
)
);
$log->add( Log::Dispatch::Screen->new
( name => 'screen',
min_level => 'warning',
)
);
$log->log( level => 'info', message => 'Blah, blah' );
my $sub = sub { my %p = @_; return reverse $p{message}; };
my $reversing_dispatcher = Log::Dispatch->new( callbacks => $sub );
它有一些你也应该看看的帮助/实用模块。
Log::Dispatch::DBI - 将输出记录到数据库表中。
Log::Dispatch::FileRotate - 定期轮换日志文件，作为其一部分 用法。
Log::Dispatch::File::Stamped - 邮票日志 包含日期和时间信息的文件。
Log::Dispatch::Jabber - 日志 通过 Jabber 发送消息。
Log::Dispatch::Tk - 日志 消息到 Tk 窗口。
Log::Dispatch::Win32EventLog - 日志 Windows 事件日志中的消息。
Log::Dispatch::Config - 允许 通过文本配置日志记录 文件类似于（或者我被告知）如何 它是用 log4j 完成的。
【讨论】：
根据脚本的大小，我强烈推荐 Log::Log4perl ... 节省每次编写脚本时重新实现日志记录。
如果你在简单模式下使用Log4perl，它只增加了大约10行左右的代码，非常有用。
Log4perl 在将输出重定向到几乎任何您想要的位置方面非常灵活，包括一次多个输出。
【讨论】：
This 听起来正是你所需要的，不幸的是它是一个 bash 脚本，你希望这一切都在你的 perl 代码中处理。
【讨论】：
./test.pl 2>&1 | tee foo.bar
Capture::Tiny 有一个 tee 子。
【讨论】：