Log4perl单例使用

时间:2016-11-03 17:40:12

标签: perl log4perl

我是Log4perl的新手,我想弄清楚为什么我在下面的设置中得到两个不同的记录器。我的理解是,这应该是一个单例,并且调用get_logger()每次都会返回相同的对象实例。

Test.pm

#!/usr/bin/perl

package Example::Test;
use strict;
use warnings;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(test);

sub test 
{
    my $logger = Log::Log4perl->get_logger();
    print $logger, "\n";
}

test.pl

#!/usr/bin/perl

use strict;
use warnings;
use Log::Log4perl;
use Example::Test;

# Logger configuration
Log::Log4perl->init('/etc/log4perl.conf');
my $logger = Log::Log4perl->get_logger();
print $logger, "\n";

my $engine = test();

输出

Log::Log4perl::Logger=HASH(0x12093d0)
Log::Log4perl::Logger=HASH(0x29b4950)

1 个答案:

答案 0 :(得分:3)

您没有指定日志记录类别,因此您的代码与

等效
Log::Log4perl->get_logger(__PACKAGE__);

其中__PACKAGE__在您的模块中为Example::Test,在您的脚本中为main

来自documentation

  

类别在Log4perl中也称为“记录器”,两者都引用相同的内容,并且这些术语可互换使用。 Log::Log4perl使用类别来确定是否应在当前日志记录级别执行或禁止组件中的日志语句。大多数情况下,这些类别只是日志语句所在的类......

通常,您可能希望为每个模块使用单独的记录器,以便以不同方式处理来自代码库不同部分的日志消息。

另一方面,如果Example::Test应该是Log :: Log4perl的包装器,register it

package My::Wrapper;

use strict;
use warnings 'all';
use 5.010;

use Log::Log4perl;

Log::Log4perl->wrapper_register(__PACKAGE__);

sub foo {
    my $logger = Log::Log4perl->get_logger;

    say $logger;
    $logger->warn('foo');
}

1;

当您从包My::Wrapper::foo()致电main时,记录类别将为main::