perl - 如何使用Template Toolkit打印递归数据结构？

Question

我正在尝试使用模板工具包打印递归数据结构。我如何在我的模板文件中描述这一点？

我有一个数据结构(哈希数组)，其中包含一些像这样的元素

ELEMENT
-> Description: XYXY
-> Childs: [Array of Child ELEMENTS of same type]

其中 childs 可以包含子元素数组。我现在想递归打印所有内容，包括元素子元素和那些子元素等等。

我怎样才能实现这个目标？

Answer 1

您可以使用PROCESS将数据传递到BLOCK，您可以递归地执行此操作。例如:

[%

SET element = {
    description = "A",
    children= [
        {
            description= "AA",
            children= [
                { description = "AAA" }
            ]
        },
        {
            description= "AB",
            children= [
                { 
                    description = "ABA",
                    children = [
                        { 
                            description = "ABAA"
                        }
                    ]

                },
                { description = "ABB" }
            ]
        }
    ]
};

%]


[% BLOCK show_element %]
    [% my_element.description | html %]
    [% IF my_element.children %]
        <ul>
            [% FOR child_element IN my_element.children %]
                <li>[% PROCESS show_element my_element=child_element %]</li>
            [% END %]
        </ul>
    [% END %]
[% END %]

[% PROCESS show_element my_element=element %]