Perl，使用DOM解析器进行空xml标记压缩的内联函数

Question

我对perl很新，我正在使用perl DOM parser，并且有一个如何使用空元素处理标记压缩的示例，这里给出了一个示例：

 XML::DOM::setTagCompression (\&my_tag_compression);

 sub my_tag_compression
 {
    my ($tag, $elem) = @_;

    # Print empty br, hr and img tags like this: <br />
    return 2 if $tag =~ /^(br|hr|img)$/;

    # Print other empty tags like this: <empty></empty>
    return 1;
 }

我理解为什么要这样做，但我不需要任何复杂的东西，因为我只想让我的函数一直返回1。所以我的“my_tag_compression”子会写成......

 XML::DOM::setTagCompression (\&my_tag_compression);

 sub my_tag_compression
 {
    return 1;
 }

我怎么能或者有可能在一行中完成上述工作？

Answer 1

你可以写：

XML::DOM::setTagCompression( sub { 1; } );