使模板成为有效的Perl文件

Question

我编写了自己的Perl预处理器--当然是用Perl编写的。

我有一个模板文件，它包含有效的Perl语法，除了下面这样的语句

$VAR{ 'LABEL' } =
#include dir/PRECOMPILED.pl
;

其中PRECOMPILED.pl包含使用Data::Dumper生成的匿名哈希，例如

{
    'a' => 1,
    'b' => 2,
}

当我对模板进行预处理时，它会将PRECOMPILED.pl包含到模板中，并使用有效的Perl语法生成一个新文件。

有没有一个好的方法使上面的模板行也是一个有效的Perl程序语句，这样如果预处理器没有运行，我可以稍后在程序中检查$VAR{ 'LABEL‘}是否包含内容？

例如

if( $VAR{ 'LABEL' } ){
    # do something
}

Answer 1

您可以使用do语句：

$VAR{LABEL} = do {
#include dir/PRECOMPILED.pl
};

但是这个解决方案有副作用(如果重要的话)：do创建了一个新的作用域。

Answer 2

我发现：

$VAR{ 'LABEL' } = (
#include dir/PRECOMPILED.pl
)[0];

也是有效的。