如何在 perl dancer 中为 RESTful web 服务实现高级路由？

Question

我想使用 perl dancer 实现一个 RESTful webservice 后端，并想了解我是否（最终如何）可以实现这样的 rest-enpoint：

get qr{/this/:IS/one/:PATH/with/:MANY/variables/:ONEMORE} => sub() {

  # Does perl dancer support this?
  # How to implement this and get the variables?

}

Answer 1

好吧，我不知道为什么，但是使用qr{...} 不起作用，但是这种格式可以正常工作：

get '/this/:IS/one/:PATH/with/:MANY/variables/:ONEMORE' => sub() {
  info("Variable IS = " . params->{IS});

}