DOM 파서를 사용하는 빈 xml 태그 압축을위한 Perl, 인라인 함수

Question

저는 펄을 처음 접했고 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; });