在 Mojolicious 中创建递归模板块

Question

我想在 Mojolicious 中创建一个递归模板块，以从嵌套数组生成复杂的菜单。

理想情况下，数组["a", ["ba", "bb"], "c"] 会产生这个嵌套列表：

<ul>
    <li>a</li>
    <li>
        <ul>
            <li>ba</li>
            <li>bb</li>
        </ul>
    </li>
    <li>c</li>
</ul>

以下代码不起作用，因为块是匿名子例程并且不能使用对自身的引用：

% my $block = begin
  % my $menu = shift;
  <ul>
  % foreach my $item (@{$menu}){
    % if(ref($item) eq 'ARRAY') {
        <li>
        %= $block->($item);
        </li>
    % } else {
        <li><%= $item %></li>
    % }
  % }
  </ul>
% end
%= $block->( ["a", ["ba", "bb"], "c"] )

Answer 1

要在表达式中使用变量，您需要在表达式之前声明此变量。因此，这将起作用：

% my $block; $block = begin

但是会产生内存泄漏，因为 $block 现在是一个循环引用，当它超出范围时 perl 无法删除。从 perl 5.16 开始，您可以在匿名 sub 中使用 __SUB__ 关键字来获取对该子例程的引用。所以这很简单

% use v5.16;
% my $block = begin
    ...
        __SUB__->($item)
    ...
% end

如果你想在 perl

% my $block = begin
  % my ($block, $menu) = @_;
  ...
        %= $block->($block, $item);
  ...
% end
%= $block->( $block, ["a", ["ba", "bb"], "c"] )