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

Question

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

url 从脚本中获取它的值。

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

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

Answer 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 执行匹配，然后将 bool 结果传递给模板。