如何在 Perl 的 Catalyst 中匹配 /foo 而不是 /foo/？

Question

我想匹配 /foo，但不是 /foo/ （其中 foo 可以是任何字符串）或 /

我尝试了很多这样的事情：

sub match :Path :Regex('^[a-z]+$')
sub match :Regex('^[a-z]+$')
sub match :Path :Args(1)

但我无法实现我需要的。

我不认为问题出在我的正则表达式上，而是因为我想处理没有参数的路径：

例如，对于 /aab/c，我从 Catalyst 得到：

[debug] "GET" request for "aab/c" from "192.168.1.100"
[debug] Path is "aab"
[debug] Arguments are "c"

Answer 1

No :Args 指定将意味着“任意数量的参数，0 或更大”。 这意味着在您的初始示例中， /foo/bar 和 /foo/bar/baz 是匹配的。 正则表达式本身不匹配的正则表达式后面的路径元素将作为操作的参数被吃掉。

（那些告诉你有关正则表达式的事情并说“我不知道 Catalyst 但是”的人忽略了一点，正则表达式匹配器中的 $ 可以匹配在“/”之前，而不总是在 URL 的末尾，在 Catalyst 中，其余部分将用作参数。）

您将需要 :Args(0) 来实现您想要实现的目标，指定 0 个路径部分用作参数（因此/foo/bar 不匹配）。

然而，快速测试

sub match :LocalRegex('^[a-z]+
表明 /foo 和 /foo/ 都匹配，（但这更近了一步：/match/xyz没有）。   Catalyst 在路径中特别对待“/”，所以我不确定您是否可以做得更好。
) :Args(0)

表明 /foo 和 /foo/ 都匹配，（但这更近了一步：/match/xyz没有）。 Catalyst 在路径中特别对待“/”，所以我不确定您是否可以做得更好。

Answer 2

根据 文档,

正则表达式匹配全局作用，即不引用调用它的名称空间...

如果您希望正则表达式仅在当前命名空间的根匹配，请尝试使用 LocalRegex 操作：

sub match : LocalRegex('^[a-z]+
)

Answer 3

仅当没有其他更具体的操作可以处理请求时，Regex 或 LocalRegex 才会匹配。

您需要支持 sub lowermatch :Regex ('/([az]+)/([az]+)') { } 来捕获 /foo/bar 并适当处理它。 不过，您现有的存根不应捕获“/”。 这应该通过 Root->default

或者，如果没有参数，您可以在现有子中 $c->forward，即：

sub match :Regex ('/foo') {
    my ($self, $c, @args) = @_;
    $c->forward('noargs_action') unless @args;
    ...
}

希望有帮助。

Answer 4

免责声明：我对 Catalyst 不熟悉； 这些是（Perl）正则表达式。

如果“foo”必须是字母数字，这将执行您想要的操作：

^\/\w*$

如果“foo”确实可以是任何内容，请改用它：

^\/$|^\/.*[^\/]$

Answer 5

LocalRegex 操作可能适合您所描述的内容，但是如果您正在做这种事情，那么您就是在与 HTTP 规范作斗争。

Answer 6

我不知道 Catalyst，但根据阅读文档，您似乎想要

子匹配 :Regex('^[a-zA-Z]*$') {}

正则表达式如下所示：

• ^ 匹配在root (即 /)
• [a-zA-Z]* 匹配零个或多个 az 或 AZ 字符
• $ 匹配 url 的结尾

Answer 7

这个答案可能不是您正在寻找的，但我只是想把它放在这里是为了完整性：我可能会使用像 ModRewrite 这样的东西来从 /foo/ 重定向到 /foo 变体。