Question

我有一个perl脚本，它使用log4perl将所有输出记录到屏幕和文件中。问题是，某些输出没有定向到log4perl。

脚本 -

use strict;
use warnings 'FATAL' => 'all';
use Log::Log4perl;
use File::Find;

my $log_conf = "log4perl.conf";
Log::Log4perl::init($log_conf);
my $logp       = Log::Log4perl->get_logger();
my $dirSource  = 'C:\box';

sub doFileList {
    $logp->info('doing dir compare');
    find( { wanted => \&process_file, no_chdir => 1 }, $dirSource);
}

sub process_file {
    if (-f $_) {
        print "This is a file: $_\n";
    } else {
        print "This is not file: $_\n";
    }
}

#main
$logp->info('start');
eval { doFileList(); };
if ($@) {
    $logp->error( 'error: ', $@ );
}
$logp->info('stop');

Log4perl config -

log4perl.rootLogger              = DEBUG, screen, file

log4perl.appender.screen         = Log::Log4perl::Appender::Screen
log4perl.appender.screen.stderr  = 0
log4perl.appender.screen.layout  = Log::Log4perl::Layout::PatternLayout
log4perl.appender.screen.layout.ConversionPattern = %d [%M:%L] %p  %F{2} - %m%n

log4perl.appender.file          = Log::Log4perl::Appender::File
log4perl.appender.file.filename = log/compare.log
log4perl.appender.file.mode     = append
log4perl.appender.file.layout   = Log::Log4perl::Layout::PatternLayout
log4perl.appender.file.layout.ConversionPattern = %d [%M:%L] %p  %F{2} - %m%n

这是屏幕/ ide的输出 -

2013/03/04 11:56:28 [main:::29] INFO  DirCompare\DirCompare.pl - start
2013/03/04 11:56:28 [tools::dircompare::doFileList:16] INFO  DirCompare\DirCompare.pl - doing dir compare
This is not file: C:\box
This is a file: C:\box\test01.JPG
This is a file: C:\box\test02.JPG
2013/03/04 11:56:28 [main:::34] INFO  DirCompare\DirCompare.pl - stop

以下是日志文件中的输出 -

2013/03/04 11:56:28 [main:::29] INFO  DirCompare\DirCompare.pl - start
2013/03/04 11:56:28 [tools::dircompare::doFileList:16] INFO  DirCompare\DirCompare.pl - doing dir compare
2013/03/04 11:56:28 [main:::34] INFO  DirCompare\DirCompare.pl - stop

我知道我使用的是print语句而不是log-＆gt; info，但是我希望log4perl配置能够使脚本的所有输出（无论它是如何生成的）都被定向到log4perl。

关于我如何做到这一点的任何想法？

Answer 1

sub process_file {}被编译为主包的一部分。你只告诉它打印到stdout。在下面添加另一个语句以打印到日志。所以你有两个打印语句，一个用于屏幕，另一个用于日志。

IO :: Tee模块为多个文件句柄创建一个文件句柄对象，因此您可以打印到一个文件句柄，所有包含的句柄都会收到输出。但传入一个打开文件句柄并打印到文件句柄的对象也可能会出错。

Answer 2

我使用'IPC :: Run3'来捕获log-＆gt; info / error无法捕获的任何命令/函数的输出。然后我将此捕获的输出打印到log-＆gt; info / error。

为了澄清一下，我上面尝试做的是捕获在perl代码中执行的命令的输出，并将该输出重定向到log。

将perl脚本的所有输出定向到文件和屏幕

2 个答案: