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; });