Perl Template::Declare 模块在 Perl 语言语法方面是如何工作的？

Question

我需要创建非常复杂的 XML 文档 (METS)，使用前缀、名称空间、模式验证、文档内部引用的元素 ID、来自混合名称空间的属性……几乎所有 XML 允许您做的事情。此外，还会有大量嵌套的元素，使得手动跟踪开始和结束标签变得困难。

研究了几种可能性，我遇到了Template::Declare。

synopsis 提供了一个示例，我在这里展示以供参考：

template simple => sub {
        html {
            head {}
            body {
                p { 'Hello, world wide web!' }
            }
        }
    };

我的问题是：就 Perl 语言元素而言，这里发生了什么？这如何转化为有效的 Perl 语法？例如，这里对于 Perl 编译器的“html”、“head”关键字等代表什么？那是一些隐含的子声明吗？ Perl 隐含地做了（或允许你做）很多事情，以至于我永远不知道实际发生了什么。我不想只是复制和粘贴一些示例，并希望我可以弯曲它来做我需要的事情，我实际上想知道我在做什么......

有人可以在这里启发我吗？

Answer 1

CPAN 的美妙之处在于您只需看一下代码即可。我承认这个有点复杂，但这是你要找的：

https://metacpan.org/source/ALEXMV/Template-Declare-0.46/lib/Template/Declare/Tags.pm#L525

基本上含糖语法来自prototype&，它告诉Perl sub 正在接受代码引用。这里的{ ... } 不是哈希，它们是块，与map 或grep 中的相同。在您的示例中，它们被链接在一起。

由于原型，你可以省略括号和逗号，但你也可以这样写示例：

template simple => sub {
  html(
    sub {
      head(
        sub { },
        body(
          sub {
            p( sub { 'Hello, world wide web!' } );
          } ) );
    } );
};

如果直接写出来，实现的方式是：

sub template(%) { ... } # the % tells it to expect a hash
sub html(&) { ... }
sub head(&) { ... }
sub body(&) { ... }
sub p(&) { ... }

这种东西叫做Syntactic Sugar，或者DSL (Domain-Specific Language)。

请注意，只有在知道自己在做什么的情况下才应该在代码中使用原型！很有可能，你不想要它们。