适用于任意树结构的 Catalyst 调度程序

Question

您好，

我是 Catalyst 的新手，我正在尝试实现一些调度逻辑。

我的数据库有一个项目表，每个项目都有一个唯一的 url_part 字段，并且每个项目在同一个表中都有一个父项，形成树结构。如果 baz 是 bar 的子级，而 bar 是 foo 的子级，而 foo 是根的子级，我想要 URL / foo/bar/baz 映射到该对象。树可以是任意深度，用户需要能够访问任何节点，无论是分支还是叶子。

我一直在查看链式调度程序的文档，但我不确定这是否可以达到我想要的效果。似乎链式调度程序中的每个步骤都必须为 PathPart 属性定义一个名称，但我希望我的 URL 仅由数据库结构确定。

使用现有的 Catalyst 调度程序很容易实现这一点，还是我需要编写自己的调度类？

谢谢！ :)

ETA：

我发现我可以使用空的 Args 属性来捕获任意数量的参数。以下似乎成功捕获了根下的每个请求：

sub default :Path :Args() {
    my ( $self, $c ) = @_;

    my $path = $c->request->path;

    $c->response->status( 200 );
    $c->response->body( "Your path is $path" );
}

从那里我可以手动解析路径并获取我需要的内容，但是，我不知道这是否是完成我所追求的内容的最佳方式。

Answer 1

这取决于您的数据结构，从您的问题中我并不完全清楚这一点。

如果有固定数量的级别（或者至少是有限范围的级别数量），每个级别对应于一种特定类型的事物，那么 Chained 可以做你想做的事——拥有一个与 :CaptureArgs(1) PathPart('') 的链式操作将在路径中创建一个 /*/ 段 - 也就是说，它会吞噬路径的一个段路径，不需要显示任何特定的固定字符串。

如果没有这样的事情——例如，您正在任意树上追逐无限数量的级别，那么可变参数 :Args 操作可能正是您想要的，并且使用它没有什么肮脏的地方。但您不需要自己解码 $c->req->path ——您可以从 $c->req-> 获取剩余的路径段;args，或者简单地在您的操作中执行 my ($self, $c, @args) = @_; 。
您可以编写一个新的DispatchType，但它不太可能值得回报。

Answer 2

在尝试了各种选择之后，我相信我已经找到了一个可以接受的解决方案。不幸的是，我无法使用 :Chained 进行递归调度（如果您尝试将处理程序链接到自身，Catalyst 会抱怨。这没什么好玩的。）

所以我最终使用了一个带有大容量的处理程序 。 CaptureArgs，如下所示：

sub default : CaptureArgs(10) PathInfo('') { 
    my ( $self, $c, @args ) = @_;

    foreach my $i( 0 .. $#args ) { 
        my $sub_path = join '/', @args[ 0 .. $i ];

        if ( my $ent = $self->_lookup_entity( $c, $sub_path ) ) { 
            push @{ $c->stash->{ent_chain} }, $ent;
            next;
        }

        $c->detach( 'error_not_found' );
    }

    my $chain = join "\n", map { $_->entity_id } @{ $c->stash->{ent_chain} };
    $c->response->content_type( 'text/plain' );
    $c->response->body( $chain );
}

如果我在 /foo/bar/baz 上执行 GET，我就会得到

foo
foo/bar
foo/bar/baz

我想要的。如果 URL 的任何部分与数据库中的对象不对应，我会得到 404。

这对于我的应用程序来说效果很好，它永远不会有十级深的东西，但我希望我能找到一个更通用的解决方案可以支持任意深度的树。