Как я могу использовать переменную Perl в моем файле конфигурации Log :: Log4perl?

Question

Я хотел бы использовать переменную Perl из моего скрипта в файле конфигурации Log :: Log4perl. Я прочитал документацию и обнаружил, что могу использовать подпрограмму, но я хотел бы сделать это немного проще, если это возможно.

Я хочу, чтобы установить имя файла для моего 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'; 

Как правило, следует избегать глобальных переменных, так что я предпочел бы, используя подпрограмма.