perl – Template Toolkit,测试嵌套循环中的最后一次迭代

我正在使用模板工具包来形成一个简单的 JSON响应(请参阅下面的代码).
我需要在响应的所有元素之后加上逗号,除了最后一个.

我相信我需要使用TTs迭代器,但是我没有把它弄好.
使用此代码,仍然会在最后一个元素的末尾打印逗号.

问题在于包含的部分

[% UNLESS outer.last && loop.last %],[% END %]

除非外循环和内循环在最后一次迭代中,否则应该添加逗号.

任何有关我出错的帮助都非常感谢.

{ "success": true,"filesdata": [
[%~ USE outer = iterator(objects); FOREACH object IN outer;
    FOREACH rep IN object.reps;
        IF rep.rep == reptype %]
{ "id":"[% object.id | xml %]","url":"[% rep.src | xml %]","story":"[% object.story | xml %]" }[% UNLESS outer.last && loop.last %],[% END %]
        [%~ END;
    END;
END ~%]
] }

[% items.join(',') %]