Boş öğe etiketlerini kullanmak için XML nasıl değiştirilir?

Question

XML::Twig için yeni. Bir başlangıç ​​etiketi ve bitiş etiketi birleşik (<foo></foo>) yerine boş öğe etiketlerini (<foo/>) kullanmak için tüm boş öğeleri nasıl değiştirebilirim? Denedim

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

:

Girdi:

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

Ama bunu işleyemez olarak

<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> 

Ben çıktı gerekir. İçerik etiketi olmadan gizlice etiketi boş etikete nasıl dönüştürebilirim? nasıl değişebilirim

Answer 1

, bunu şöyle yapabiliriz.

Answer 2

XML :: LibXML otomatik olarak daha kısa sürüme sahip olacak.

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

XML gelince

---

:: Twig, aynı zamanda varsayılan ( empty_tags => 'normal') tarafından kısa formu kullanır. Ancak, yalnızca <foo/>'dan oluşturulan boş öğeleri göz önünde bulundurur. (Bana çok aptalca geliyor!) Kazı yaptım ve bir elemanı boş ya da görmüyorsa değiştirmene izin verdiğini fark ettim. Bu, set_empty ve set_not_empty kullanılarak yapılır. Daha sonra,

#!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; 

Temelde eleman hiçbir şey içeriyorsa elle kontrol etmek zorunda boş bir eleman olacak şekilde ayarlayın: Eğer dal ile sopa istiyorsanız

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