获得进出口变量perl脚本

Question

我的问题是exim.conf这里我尝试用perl

在exim.conf

host = "${perl{func}{arg}}" 

从exim.pl.local其访问进出口变量设置主机名以下列方式

my $phost = Exim::expand_string('$primary_hostname'); 

然而exim.conf，价值是没有得到评估和“$ phost”值出来是文字如下。

print $phost //outputs ${perl{func}{arg}}. 

任何方式我可以更改exim.conf或exim.pl.local中的代码来获取子例程的结果？

Answer 1

在/etc/exam.pl.local

sub getprimaryhost { 
    my $phost = Exim::expand_string('$primary_hostname'); 
    return $phost; 
} 

然后

在/etc/exim.conf

smtp_active_hostname = ${perl{'getprimaryhost'}} 

smtp_active_hostname将被设置为有史以来什么它上面时的各子返回将是primary_hostname的值。此外，这似乎不适用于primary_hostname。