Question

最近我一直在与Dancer合作创建一个应用程序，但我很难弄清楚如何定义路由。

package MyApp;
use Dancer ':syntax';
our $VERSION = '0.1';

   # Base for routing of requests
   # Match against /:validate

   any '/:validate' => sub {

        # This assumes we can stop the routing here
        # validate the request param in the url string
        # against a regex and 'pass' the request to a
        # specific route with the 'var' option

                var validate => params->{validate};
                .....
                # Validation works and dancer passes successfully
            pass();
   };

   # This is the part that is not working
   prefix '/info' => sub {
       ..... # does stuff
   };    ## back to the root

在传球的舞者日志中：

[25561] core @ 0.001133＆gt; [点击＃1]最后匹配的路线通过了！在 /usr/local/share/perl5/Dancer/Route.pm l。 216

在传球后的舞者日志中：

[25781] core @ 0.001524＆gt; [点击＃4]试图匹配＆＃39; GET / 11121 / info /＆＃39; 反对/ ^ / info $ /（由＆＃39; / info＆＃39;生成）in /usr/local/share/perl5/Dancer/Route.pm l。 84 [25781] core @ 0.002041＆gt; [点击＃4]响应：/usr/local/share/perl5/Dancer/Handler.pm中的404。 179

这可能是我想念的简单事情，但到目前为止我还没有运气。非常感谢任何帮助。

编辑我确实注意到我正在使用prefix错误，所以我解决了这个问题并为不良解释道歉。在坚果shell中，url localhost:3000/12/的第一部分例如是数据库记录。所有路由都构建在该记录上，作为url字符串的第一部分，所以我想在进一步进入路由之前对其进行验证。

我能够设置一个before钩子来抓取它并且可以使用params哈希，但是目前在非匹配模式上会出现500错误。

        hook before => sub {
            my $route_handler = shift;
            var record => params->{record};

            my $record = var 'record';
            while ($record !~ m/^ID[\-]\d{3,6}$/) {    # Check for valid ID
                    if ($record =~ m/^\d{3,6}$/) {     # Works currently
                            $record = 'ID-'.$record;   
                    }else {forward "/error"};          # this = 500 ISE error
            }
    };

我尝试了forward和send_error，但两者都生成了一个ISE，而Dancer会在日志的最后一个条目中报告此内容：

29661] core @ 0.001048＆gt;在打入之前进入[命中＃2] /usr/local/share/perl5/Dancer/Hook.pm l。 58

非常感谢任何帮助，欢迎使我的问题更清晰的编辑。

Answer 1

这不是前缀的作用。 Prefix用于声明当前包中路由的前缀。

prefix '/users';
get '/' => sub { ... };         # matches /users
post '/add' => sub { ... };     # matches /users/add
get '/view/:id' => sub { ... }; # matches /users/view/123

Answer 2

我根本没有使用Dancer，但是从Dancer::Introduction文档来看，您似乎还必须在prefix /info内定义一条路线。试试：

# This is the part that is not working
   prefix '/info' => sub {
       get '/' => sub {
          ..... # does stuff
       }
   };    ## back to the root

Perl Dancer并使用命名参数和嵌套前缀定义路由

2 个答案: