在perl脚本中获取exim变量

Question

我的问题是在exim.conf中，我试图使用perl设置主机名。

在exim.conf中

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

在exim.pl.local中，它通过以下方式从exim.conf访问Exim变量

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

但是，该值没有得到评估，"$phost"的值如下所示。

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

是否可以更改exim.conf或exim.pl.local中的代码以获得子例程的结果？

Answer 1

in /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。