Verschiedene Namen und Attribute in XML (LibXML) (gelöst) (Fragen zu Perl-Modulen)

[thread]19800[/thread]

Verschiedene Namen und Attribute in XML (LibXML) [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+5 replies
Chris271

2015-09-16 16:42
User since
2015-09-16
5 Artikel
BenutzerIn
Hallo Leute,

da ich neu im LibXML-Universum ist die Frage vielleicht für viele ziemlich einfach (das hoff ich mal zumindest) aber ich bekomms einfach nicht hin.

1. Gibt es die Möglichkeit mit Hilfe von LibXML die Struktur der kompletten XML-Datei (zur Kontrolle) auszugeben (Mit allen Nodes und Attributen)?

2. Da ich ein, sich änderndes Modell in XML exportiere, können sich auch nach jedem Export die Attribute sowie die Attribute Namen (z.B. wenn eine Komponente zum Modell hinzugefügt wurde) ändern. Gibt es eine Möglichkeit sich die Attribute und Attributenamen eines gewissen Tags (egal wieviele) auszugeben, egal wie viele?

Unter Attribute vertehe ich nicht wie hier im Beispiel "Johannes"
Code: (dl )

1 2 3

<Mensch> <Name>Johannes</Name> </Mensch>
Sondern Attribute und Attributenamen wie im folgenden Beispiel
(Attributname: g oder Bewohner) (Attribut: 9.81 oder Lebewesen)
Code: (dl )

1 2 3

<Model> <Welt g="9.81" bewohner="Lebewesen"> </Model>
Ich hoffe ich hab es verständlich erklärt. Mein Ziel ist es ein Modell das in XML beschrieben ist in eine andere Sprache (Modelica) zu Transferieren. Für diesen Zweck benötige alle Attributnamen incl. ihrer Attribute (mehrere Attribute pro Node).

Vielen Dank.

MfG
Chris271
Last edited: 2015-09-16 16:55:50 +0200 (CEST)
- +4 replies
- Gast janus
  
  2015-09-16 17:34
  
  Perls XML-Parser erzeugen aus XML eine Datenstruktur. Data::Dumper gibt die aus zum Angucken. Machs einfach.
  Last edited: 2015-09-16 17:37:58 +0200 (CEST)
  - +3 replies
  - Chris271
    
    2015-09-17 09:27
    User since
    2015-09-16
    5 Artikel
    BenutzerIn
    
    Hey janus,
    
    vielen Dank für den Tipp, die komplette Ausgabe hab ich mit dem Dumper hinbekommen.
    
    Zu meinem anderen Problem (ändernde Parameternamen) hab ich aber noch keine Lösung. Das folgende Beispiel soll mein Problem nochmal erläutern:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
    
    #!/usr/bin/perl use strict; use warnings; use XML::LibXML; use Data::Dumper; # my $filename = 'library.xml'; #- ORIG my $filename = 'data.xml'; my $parser = XML::LibXML->new(); my $doc = $parser->parse_file($filename); my $xpath = '/Model/packagedElement/@name'; print Dumper $doc->findvalue($xpath); # print Dumper $doc->toString(1);
    
    Mit dem oberen Beispiel kann ich jetzt in der folgenden Zeile genau das Attribut "name" auslesen (Ergebnis: Chaotisches Pendel). Ich wusste aber bereits vorher das das Attribut den Namen "name" trägt, somit konnte ich dieses Arrtubut direkt adressieren.
    
    Code: (dl )
    
    <packagedElement type="Package" id="EAPK_5CA989EF_DA2A_47b0_8FD4_DDA64A360A99" name="Chaotisches_Pendel">
    
    So weit so gut.
    
    Gibt es aber ne Möglichkeit bei sich ändernden Attributnamen (die ich vorher nicht weiß!!) auf die Attribute zuzugreifen. Es handelt sich um ein exportiertes Modell bei dem ich vorher nicht weiß, welche Attribute gesetzt wurden.
    
    z.B.
    
    Code: (dl )
    
    1 2 3
    
    <Revolute base_Class="EAID_A2A300B3_4664_4f05_8DA6_6A5CB89FAA15" cylinderDiameter="world.defaultJointWidth" stateSelect="StateSelect.prefer" animation="true" useAxisFlange="false" cylinderLength="world.defaultJointLength" n="{0,0,1}"/> <BodyBox base_Class="EAID_BD066F94_84A8_4262_9A57_5C8492934D8A" length="Modelica.Math.Vectors.length(r - r_shape)" innerWidth="0" angles_fixed="false" r_shape="{0,0,0}" animation="true" width="length/world.defaultWidthFraction" z_0_fixed="false" enforceStates="false" innerHeight="innerWidth" useQuaternions="true" height="width" w_0_fixed="false" widthDirection="{0,1,0}" r="{0.5,0,0}" density="7700"/>
    
    Wie in den beiden Beispiele zu sehen, kann ich die Attributnamen nicht vorhersehen :(.
    
    Weiß jemand eine Lösung zu diesem Problem? Im Notfall muss ich das per RegEx lösen aber das will ich eigentlich vermeiden
    
    Grß
    Chris271
    - +2 replies
    - Raubtier
      
      2015-09-17 10:03
      
      User since
      2012-05-04
      1081 Artikel
      BenutzerIn
      
      Ich glaube, du suchst die attributes-Funktion:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
      
      #!/usr/bin/perl use 5.14.0; use warnings; use XML::LibXML; use Data::Dumper; my $dom = XML::LibXML->load_xml(string => <<'EOT'); <?xml version="1.0" encoding="UTF-8"?> <Model> <packagedElement type="Package" id="EAPK_5CA989EF_DA2A_47b0_8FD4_DDA64A360A99" name="Chaotisches_Pendel">String</packagedElement> <packagedElement type="was anderes" id="zweites" name="Gravitationswaage">Misst super bei Schwelastverkehr</packagedElement> </Model> EOT my $xpath = '/Model/packagedElement'; my @nodes = $dom->findnodes($xpath); for my $node (@nodes) { say join ", ", map {$_->getName() . " -> " . $_->getValue()} $node->attributes(); }
      
      Das ganze versteckt sich in XML::LibXML::Node bzw. XML::LibXML::Attr.
      - Chris271
        
        2015-09-18 11:05
        
        User since
        2015-09-16
        5 Artikel
        BenutzerIn
        
        Vielen Dank Raubtier, das war exakt das was ich gesucht hab :)

View all threads created 2015-09-16 16:42.