Perl Template :: Toolkit正则表达式匹配任一值

时间:2014-06-26 21:11:44

标签: regex perl template-toolkit

我正在尝试匹配Perl Template::Toolkit模块中的任何一个字符串。

url从脚本中获取其价值。

[% IF url == ("a/b/c" | "d/e/f") %]

这是正确的做法吗?我看了看文件。它提到了'匹配'方法,但我正在寻找一种更简单的方法。

2 个答案:

答案 0 :(得分:2)

我认为在Template::Toolkit中使用正则表达式有点尴尬,但在这种情况下你可以写

[% IF url == 'a/b/c' or url == 'd/e/f' %]

如果你需要更复杂的东西,那么你可能会误解模板的问题,但是你总是可以在Perl中评估一个布尔条件并将该值传递给模板


<强>更新

或者您可以使用SWITCH,就像这样

[% SWITCH url %]
[%   CASE [ 'a/b/c', 'd/e/f' ] %]
       ...
[% END %]

答案 1 :(得分:1)

您可以使用match virtual method来测试正则表达式。这很简单。

use strict;
use warnings;
use Template;

my $t = Template->new;
$t->process( \*DATA, { urls => [qw(
    http://example.com/a/b/c
    http://example.com/xyz
    http://example.com/x/d/e/f
)] } );

__DATA__
[% FOREACH url IN urls %]
  [%- IF url.match('a/b/c|d/e/f') %]
    [%- url %] - match
  [%- ELSE %]
    [%- url %] - NO match
  [%- END %]
[% END %]

输出:

http://example.com/a/b/c - match
http://example.com/xyz - NO match
http://example.com/x/d/e/f - match

或者,在脚本中对URL执行匹配,然后将布尔结果传递给模板。