使用文件追加器的Log4perl奇怪的錯誤

Question

我正在嘗試向Log4perl記錄器添加和刪除一個簡單的文件附加器，但是會生成警告，但不會打印任何內容。 這是我的代碼：

use strict;
use warnings;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);
use Log::Log4perl::Appender::File;

my $app = Log::Log4perl::Appender::File->new(
    filename  => "C:/users/my name/Desktop/someFile.txt",
    mode      => 'clobber',
    utf8      => 1,
);
# print "appender name is " . $app->name();
my $logger = get_logger();
$logger->add_appender($app);
INFO('info');
$logger->remove_appender($app->name);

文件“ someFile.txt”已創建，但為空。 生成的警告是：

Odd number of elements in hash assignment at C:/strawberry/perl/site/lib/Log/Log4perl/Appender/File.pm line 223.
Use of uninitialized value in print at C:/strawberry/perl/site/lib/Log/Log4perl/Appender/File.pm line 245.

帶有時間戳的“ info”也被打印到命令行。 誰能看到我在犯什么錯誤？

Answer 1

您確定要添加程序嗎？ 如果是這樣，則您不應該直接創建新的Log::Log4perl::Appender::File對象-您創建Log::Log4perl::Appender對象，並將要添加的類型的類作為第一個參數傳遞到構造函數。 像這樣：

my $app = Log::Log4perl::Appender->new(
    'Log::Log4perl::Appender::File',
    filename  => 'C:/users/my name/Desktop/someFile.txt',
    mode      => 'clobber',
    utf8      => 1,
);