如何禁用特定类的 Log4perl 输出？

发布于 2024-08-08 19:30:46 字数 444 浏览 5 评论 0原文

我想在项目中使用 Log4perl，但对某个类禁用它（在本例中为 Net::Amazon）。我以为这会是一件容易的事，但不知何故我失败了。

我尝试使用

use Log::Log4perl (:easy_init);
use Net::Amazon;

my $amz = Net::Amazon->new( ... );
my $log = Log::Log4perl->easy_init($DEBUG);
$log = $log->get_logger("Net::Amazon");
$log->level($OFF);

$log = $log->get_logger(__PACKAGE__);
$log->info("Hello World.");

不幸的是，Net::Amazon 的调试消息仍然打印到终端。这是为什么？我在这里做错了什么？

原文

I would like to use Log4perl in a project but disable it for a certain class (which is, in this case Net::Amazon). I thought this would be an easy one, but somehow I failed.

I tried using

use Log::Log4perl (:easy_init);
use Net::Amazon;

my $amz = Net::Amazon->new( ... );
my $log = Log::Log4perl->easy_init($DEBUG);
$log = $log->get_logger("Net::Amazon");
$log->level($OFF);

$log = $log->get_logger(__PACKAGE__);
$log->info("Hello World.");

Unfortunately, debugging messages of Net::Amazon are still printed to the terminal. Why is that? And what am I doing wrong here?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

千仐 2024-08-15 19:30:46

我想你的意思是

    $log->get_logger("Net::Amazon")->level($OFF)

I think you mean

    $log->get_logger("Net::Amazon")->level($OFF)

回复收藏 0 原文

芯好空 2024-08-15 19:30:46

问题解决了，是人类的愚蠢造成的。使用 get_logger 获取当前包的记录器后忘记保存它。以下示例按预期工作：

use Log::Log4perl (:easy);
use Net::Amazon;

my $amz = Net::Amazon->new( ... );
Log::Log4perl->easy_init($DEBUG);
$log = get_logger("Net::Amazon");
$log->level($OFF);

$log = $log->get_logger(__PACKAGE__);
$log->info("Hello World.");

Problem solved, caused by human stupidity. Forgot to save the logger for the current package after getting it with get_logger. The following example works as expected:

use Log::Log4perl (:easy);
use Net::Amazon;

my $amz = Net::Amazon->new( ... );
Log::Log4perl->easy_init($DEBUG);
$log = get_logger("Net::Amazon");
$log->level($OFF);

$log = $log->get_logger(__PACKAGE__);
$log->info("Hello World.");

回复收藏 0 原文

~没有更多了~