रिक्त-तत्व टैग का उपयोग करने के लिए XML को कैसे बदलें?

Question

मैं XML::Twig पर नया हूं। स्टार्ट-टैग और एंड-टैग कॉम्बो (<foo></foo>) के बजाय खाली-तत्व टैग (<foo/>) का उपयोग करने के लिए मैं सभी रिक्त तत्वों को कैसे बदल सकता हूं?

इनपुट:

<book> 
    <given-names>Maurice<xref ref-type="fn" rid="fnI_1"></xref></given-names> 
    <colspec colname="col1" colnum="1"></colspec> 
    <entry align="left"><p></p></entry> 
</book> 

मैं उत्पादन की जरूरत के रूप में:

<book> 
    <given-names>Maurice<xref ref-type="fn" rid="fnI_1"/></given-names> 
    <colspec colname="col1" colnum="1"/> 
    <entry align="left"><p/></entry> 
</book> 

मैंने कोशिश की:

 use XML::Twig; 
     my $xml = XML::Twig->new(twig_handlers => { 
            'xref' => sub {$_->set_tag('#EMPTY'),}, 
           }, 
           pretty_print => 'indented',           
           ); 
     $xml->parse('sample.xml'); 
     $xml->print; 
} 

लेकिन मैं इसे संसाधित नहीं कर सकता। रिक्त टैग पर सामग्री टैग के बिना gloabally कैसे बदल सकते हैं? मैं कैसे बदल सकता हूँ?

Answer 1

आप टहनी के साथ रहना चाहते हैं, आप इसे इस तरह कर सकते हैं:

#!usr/bin/perl 
use strict; 
use warnings; 
use XML::Twig; 

my $xml = XML::Twig->new(twig_handlers => { 
      'p' => sub { 
       if (!$_->first_child()) { $_->set_content('#EMPTY') } 
       }, 
      }, 
      pretty_print => 'indented', 
      empty_tags => 'normal'         
); 

$xml->parsefile('file.xml'); 
$xml->print; 

मूल रूप से आप मैन्युअल रूप से जाँच करने के लिए करता है, तो तत्व कुछ भी नहीं होता है, तो एक खाली तत्व होने के लिए यह निर्धारित किया है।

Answer 2

एक्सएमएल :: LibXML स्वचालित रूप से छोटे संस्करण को आउटपुट करेगा।

use XML::LibXML qw(); 
print XML::LibXML->new()->parse_file($ARGV[0])->toString(); 

---

एक्सएमएल के रूप में :: टहनी, यह भी डिफ़ॉल्ट (empty_tags => 'normal') द्वारा छोटे रूप का उपयोग करता है। हालांकि, यह केवल खाली तत्वों को मानता है जो <foo/> से बनाए गए थे। (मुझे बहुत बेवकूफ़ लगता है!) मैंने कुछ खुदाई की और पाया कि यह आपको तत्व को खाली या नहीं मानने पर बदलने की अनुमति देता है। यह set_empty और set_not_empty का उपयोग करके किया जाता है।

use XML::Twig qw(); 
my $twig = XML::Twig->new(
    twig_handlers => { 
     '*' => sub { 
     $_->set_empty() if !$_->first_child(); 
     }, 
    }, 
); 
$twig->parsefile($ARGV[0]); 
$twig->print();