Wie kann ich mit Perl XML::LibXML zu extrahieren, die ein Attribut in einem tag?

Ich habe eine XML-Datei

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

Möchte ich extrahieren string2 Wert hier.. und auch ich möchte es auf einen neuen Wert..

Wie zu tun?

InformationsquelleAutor Anandan | 2009-08-06
  1. 16

    Verwendung von XPath-Ausdrücken

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

    Und Lesen Sie die Dokumentation, natürlich 🙂

    • Und natürlich, wenn Sie wollen, zu Fuß den DOM selbst, können Sie das auch tun. XML::LibXML verwendet die W3C-DOM-API, die ist die gleiche, die Sie verwenden in Javascript. So sollte es sein, leicht vertraut (obwohl die API ist Scheiße, zumindest ist es standard).
    • danke. kann u temme, wie ändern Sie den Wert von string2??
    • schreiben 'temme' statt 'mir' ist nicht cool. In der Tat, es bringt einige Leute wie ich, die muss in extra Mühe, mental zu analysieren, was Sie sagen. Die Qualität der Antworten, die Sie bekommen Antwort auf Ihre Fragen, ist direkt proportional zu der Anstrengung, die Sie in das Komponieren ist eine klare, gut definierte Fragen.
    • beschissen DOM-API kann relativ leicht behoben, indem Sie einige dünne Wrapper, die machen es die mehr perlish. Der größte Vorteil von XML::LibXML über andere freilich bequemer-Modulen ist immer noch seine Leistung. Geschwindigkeit und Speicher ratsam
    InformationsquelleAutor zakovyrya
  2. 8

    Könnte man XML::Parser, um den Wert als gut. Für weitere Informationen siehe die XML::Parser Dokumentation:

    #!/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);
    InformationsquelleAutor Logan
  3. 2

    Denke ich, könnten Sie besser dran, beginnend mit XML::Simple und spielen um erstmal ein wenig:

    #!/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>
    • Oberflächlich sieht einfach aus, aber xml::simple Daten strucutres Essen-Speicher für große Dokumente, und die Sache geht wirklich kryptisch wirklich schnell.
    • Werfen Sie einen Blick auf die OP ' s wieder buchen. Er weiß nicht genug, um in der Lage sein, um das lernen der anderen Bibliotheken. Er muss auf do ein wenig zu lernen etwas so dass er sich auf die Bühne, wo er weiß, was du meinst in deinem Kommentar.
    InformationsquelleAutor Sinan Ünür
  4. 0

    Dank für Eure Antworten. Ich fand eine andere Antwort in "Config-Datei-Verarbeitung mit LibXML2", das fand ich sehr nützlich.

    InformationsquelleAutor Anandan
Schreibe einen Kommentar