Perl - 模板工具包 - 如何获取模板中的变量列表？

Question

我将 Perl 与 Dancer 和 Template::Toolkit 一起使用。

我正在尝试创建一个通用例程，该例程将传递一个模板和 HTTP GET/POST 参数。

我需要找到一种方法来获取模板中的变量列表，以便我可以从参数中检索它们，或者在缺少一个或多个时返回错误。

我可以走一条丑陋的正则表达式路线，但我希望有一种更好/更清洁的方式。

所有的模板都是 XML/SOAP，到处都有一些变量。

有什么想法吗？

Answer 1

如果您在模板上下文中启用TRACE_VARS 选项，那么您可以使用variables 方法获取所有访问值的哈希值。

此代码显示了一个简短的示例

use strict;
use warnings;

use Template::Context;
use Data::Dump;

my $template = '[% person.name %] <[% person.email %]>';

my $context = Template::Context->new(TRACE_VARS => 1);
my $compiled = $context->template(\$template) or die $context->error;
my $variables = $compiled->variables;

dd $variables;

输出

{ person => { email => {}, name => {} } }