在后台运行的单个 perl 脚本可以保存 Log4Perl 的多个实例吗？

Question

我有一个脚本“server.pl”，它在后台运行，并且使用 Log4Perl 进行自记录。

该脚本连续读取目录并检测使用 Linux::Inotify2 模块在其中创建的新文件。

每个检测到的文件都是一个可存储对象，它是要运行的管道，并且必须写入自己的日志文件中。我的问题是，当我调用 Log4Perl::init 初始化管道的记录器时，server.pl 不再记录自身，因为新的初始化已覆盖前一个初始化。所以问题是如何使“server.pl”脚本保存 Log4Perl 的多个实例（提前未定义数量）？

下面是“server.pl”的截断版本（没有无聊的东西）

#!/usr/bin/perl
use warnings;
use strict;
use Carp;
use Log::Log4perl;
use Linux::Inotify2;
use Storable;

Log::Log4perl->init('/.../log4perl.conf');
my $server_logger = Log::Log4perl->get_logger("server");

my $tracker = PipelineBatchTracker->new( _logger => $server_logger);

my $inotify = new Linux::Inotify2()
      or $server_logger->logcroak("Unable to create new inotify object: $!");

# Sets non-blocking inotify
$inotify->blocking(0);

# define watcher
$inotify->watch
    (
        "/.../serial/",
        IN_CREATE,
        sub {
            my $e = shift;
            my $pipe;
            my $serial = $e->{name};
            my $full = $e->{w}{name} . ${serial};

            $server_logger->info(${serial} . " was created in " . $e->{w}{name}) if $e->IN_CREATE;

            eval {
                my $pipe = retrieve("${full}");
                $server_logger->logcroak("Unable to retrieve storable object") unless defined $pipe;

                $server_logger->info(${serial} . " loaded into a Synegie::Pipeline object");
                # This methods call Log::Log4perl->init
                # and this is bad cause the server and former
                # running pipelines are not logging anymore !!!
                $pipe->setLogger();

                $tracker->addPipeline($pipe);
            };
            if ($@) {
                $server_logger->error("server : Failed to add pipeline : $@");
            }
        }
    );


while (1) {
    $server_logger->trace("--------------------- AND AGAIN -------------------------");
    $inotify->poll;
    sleep 2;

    eval {
        $tracker->poke();
    };
    if ($@) {
        $server_logger->error("server : $@");
    }

    sleep 30;
}

编辑：在全球范围内，这意味着我需要一个取决于每个实例的记录器，而不是仅在脚本级别定义的记录器。有什么想法吗？ 谢谢

Answer 1

我不会说“不”，但由于 Log4perl 遵循单例模式，逆潮流而动并不是一个好主意！

如果您真的对此感兴趣，您可能（或可能不会！）利用线程及其非共享数据的一些优势，但是创建和销毁 Perl 线程会逐渐增加使用的内存量，并且无法恢复，这是长期应用程序的一个问题！