如何在我的 Log::Log4perl 配置文件中使用 Perl 变量？

Question

我想在 Log::Log4perl 配置文件中使用我脚本中的 Perl 变量。我阅读了文档，发现我可以使用子程序，但如果可能的话，我想做得更简单一些。

我想为我的 appender 设置文件名：

log4perl.appender.av_std_LOGFILE.filename="whateverfilename.log"

但是这样做，它是一个固定值。

我的脚本中有一个变量中的文件名，并希望在运行时使用它：

log4perl.appender.av_std_LOGFILE.filename=\
 sub { return &av_getLogfileName(); }

这是子程序：

sub av_getLogfileName
{
    return $av_std_LOGFILE;
}

这可行，但我想避免在我的脚本中使用 sub，因为返回值非常简单。

documentation 说：

以字符串sub {... 开头的每个值都被解释为在应用程序解析配置时要执行的 Perl 代码...

所以我尝试了类似的方法，但没有成功：

log4perl.appender.av_std_LOGFILE.filename=\
    sub { print "$av_std_LOGFILE"; }

有没有办法在我的脚本中没有 sub 的情况下获取变量的结果？

Answer 1

print 成功返回 1，所以

sub { print "$av_std_LOGFILE"; }

返回 1，而不是 $av_std_LOGFILE 的值。您还必须fully qualify variable names in hooks，这意味着您必须将$av_std_LOGFILE 设为全局包。

把你的钩子改成：

sub { return $main::av_std_LOGFILE; } # double quotes are unnecessary

并像这样在你的脚本中设置$av_std_LOGFILE（在调用Log::Log4perl::init之前）：

our $av_std_LOGFILE = '/path/to/logfile';

一般来说，你应该避免使用全局变量，所以我更喜欢使用子程序。