如何将错误消息输出到其他日志文件？

Question

在Perl中你可以:

print STDERR "bla bla bla"; 

...而Apache将把它转储到/etc/httpd/logs/error_log.

但是如果我想将一些错误/警告消息发送到不同的日志文件呢？

如何在Perl中创建一个函数来执行此操作？

print MYLOGFILE "bla bla bla"

......渲染到/logs/my_favorite_log？

Answer 1

你应该看一下Perl的一些正式的日志包,比如log4perl.毫无疑问,还有其他人.

Answer 2

使用Log :: Trivial

use Log::Trivial;
my $logfile = Log::Trivial->new(log_file => "logs/my_favourite.log");
$logfile->set_level(3);
$logfile->write(comment => "bla bla bla");