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