如何在 Perl 中跨模块使用 Log4Perl？

Question

我计划在我的模块中使用 Log4Perl 进行日志记录。

我的代码结构是这样的

我有 Start.PL 来验证一些参数。我有几个相互链接的模块（PM）文件（在这些 PL 和 PM 文件之间使用）

我有一个 Logger.PM，其中有一个方法 InitiateLogger() ，它创建日志对象，

 $log    = Log::Log4perl->get_logger("MyLog");

我将此方法称为 Logger:: Start.pl 中的 InitiateLogger();

这是我的问题

1. 如何在模块（PM 文件）中使用相同的 $log
2. 我是否需要为此使用相同的包名称？

如果有人向我澄清这些观点，那就太好了。

Answer 1

您可以使用 our 将 $log 声明为包变量，并在任何需要的地方使用该实例，使用其详细的完全限定名称：

Package::Name::$log->info( 'test' );

您可以使用typeglob 赋值后的别名：

#!/usr/bin/env perl

package Package::Name;

use strict;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init( $ERROR );
our $log = get_logger();

package main;

use v5.12;
use strict;

*log = $Package::Name::log;
say $log;

产生：

Log::Log4perl::Logger=HASH(0x230ff20)

在您的情况下，Start.pl 中记录器对象的完全限定名称是 $main::log。
您可以使用 *log = $main::log 在需要记录器的每个包中创建别名。

Answer 2

实际上，Log4perl 的工作方式（它是单例）， get_logger() 将在程序中的任何位置返回完全相同的对象，

use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init( $ERROR );

print Log::Log4perl->get_logger("MyLog"), "\n";

package Some::Other::Package;

print Log::Log4perl->get_logger("MyLog"), "\n";

此打印（例如）：

Log::Log4perl::Logger=HASH(0x15a9d48)
Log::Log4perl::Logger=HASH(0x15a9d48)

因此，如果您想在所有模块中使用相同的 $log，您可以在每个模块中调用 get_logger("MyLog") 。

但是，如果您希望能够在一个特定模块中打开或关闭日志记录，更好的方法可能是只调用不带参数的 get_logger() 。这将返回一个与当前包名称相关的记录器，因此您可以在配置文件中打开或关闭该包的记录器。

Answer 3

使用全局变量，例如，

$main::log = Log::Log4perl->get_logger("MyLog");

这样您就可以在模块中的任何位置访问变量 $main::log 。因为它会在命名空间中维护。