Bir etiketteki bir özniteliği ayıklamak için Perl'in XML :: LibXML'sini nasıl kullanabilirim?

Question

Ben bir XML dosyası var

<PARENT > 
<TAG string1="asdf" string2="asdf" > 
</TAG > 
</PARENT> 

ben .. burada dize2 değerini ayıklamak istiyorum ve ayrıca yeni bir değere ayarlamak istediğiniz ..

bunu nasıl yapmalı?

Answer 1

Kullanım XPath elbette

use strict;                              
use warnings;                              

use XML::LibXML;                             
use Data::Dumper;                             

my $doc = XML::LibXML->new->parse_string(q{                      
<PARENT>                               
    <TAG string1="asdf" string2="asdfd">                       
    </TAG>                              
</PARENT>                               
});                                

my $xpath = '/PARENT/TAG/@string2';                        
# getting value of attribute:                          
print Dumper $doc->findvalue($xpath);                        
my ($attr) = $doc->findnodes($xpath);                        

# setting new value:                            
$attr->setValue('dfdsa');                           
print Dumper $doc->findvalue($xpath);                        

# do following if you need to get string representation of your XML structure 
print Dumper $doc->toString(1);        

Ve okumak belgelerine ifadelerde :)

Answer 2

Siz de değeri elde etmek XML :: Ayrıştırıcı kullanabilirsiniz. Daha fazla bilgi için XML::Parser documentation bakınız:

#!/usr/local/bin/perl 
use strict; 
use warnings; 


use XML::Parser; 
use Data::Dumper; 

my $attributes = {}; 

my $start_handler = sub 
{ 
    my ($expat, $elem, %attr) = @_; 
    if ($elem eq 'TAG') 
    { 
     $attributes->{$attr{'string1'}} = 'Found'; 
    } 
}; 


my $p1 = new XML::Parser(
     Handlers => { 
      Start => $start_handler 
     } 
); 

$p1->parsefile('test.xml'); 

print Dumper($attributes); 

Answer 3

Sana XML::Simple ile başlayan ve biraz ilk uğraşırken daha iyi olabileceğini düşünüyorum:

#!/usr/bin/perl 

use strict; 
use warnings; 

use XML::Simple; 

my $xml = XMLin(\*DATA); 

print $xml->{TAG}->{string2}, "\n"; 

$xml->{TAG}->{string2} = "asdf"; 

print XMLout($xml, RootName => 'PARENT'); 

__DATA__ 
<PARENT> 
<TAG string1="asdf" string2="value of string 2"> 
</TAG> 
</PARENT> 

Answer 4

Teşekkür Yanıtlarınızla için. Çok faydalı bulduğum "Config file processing with LibXML2" da başka bir cevap buldum.