perl - 如何在 Perl DBI 日志文件中获取时间戳？

Question

我有一个问题，即应用程序在 DBI 调用期间随机死亡。我们无法在我们的测试或验收环境中可靠地重现这一点，因此我需要在我们的生产系统上对其进行监控，以试图弄清楚发生了什么。

我正在记录所有 DBI交通通过DBI_TRACE环境变量。

DBI_TRACE=3=dbi.log script.pl

然而，问题是 DBI 日志文件中没有时间戳，因此很难通过它们来查找模具发生时发生的情况。

有什么方法可以启用带时间戳的 DBI 日志记录？

Answer 1

您可以使用 File::Tee重定向 STDERR 并添加带有时间戳的前缀。

例如:

use strict;
use warnings;

use File::Tee 'tee';

my $logfile = "/path/to/timestamped/logfile.log";
my $filter  = sub { return localtime() . ' ' . $_[0] };

my $pid = tee STDERR, { preprocess => $filter, reopen => $logfile };

print STDERR "something bad happened.";

这里的优点是它不会干扰您现有的 STDERR——所有错误消息将继续出现在同一个地方。但流被复制并写入 $logfile ，通过 $filter 进行任何您想要的转换钩。