XML::Simple - XML bearbeiten und speichern (Fragen zu Perl-Modulen)

[thread]18170[/thread]

XML::Simple - XML bearbeiten und speichern

Tags: perl5 XML::Simple Similar Threads

Readers: 21

Articles: hide open all | hide show old branches

+13 replies
guenni

2013-02-27 12:15
User since
2013-02-27
12 articles
BenutzerIn
Moin,
Ich hoffe das die Frage hier richtig platziert ist, ich habe keine Rubrik für XML gefunden.
Und zwar habe ich ein Problem mit dem Zugriff auf Elemente in einem XML.
Und zwar will ich <data id="2.1"> und <data id="2.1.1"> aus dem Beispiel auslesen bzw. bearbeiten.
Im Script wäre das z.B. die Ausgabe von print "idb".
Ich bekomme aber nur "Not a HASH reference at ...".
Wobei diese verschachtelten Unterstrukturen beliebig oft vorkommen können aber nicht müssen.

Irgendwie bin ich da auf dem Holzweg und hoffe auf etwas Licht im Dunkel.

Danke
Guenni

Das XML sieht so aus:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

<?xml version="1.0" encoding="UTF-8"?> <datas> <data id="1"> <page>1</page> </data> <data id="2"> <page>2</page> <data id="2.1"> <page>2</page> <data id="2.1.1"> <page>2</page> </data> </data> </data> </datas>
Und das Perl:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl # use module use XML::Simple; use Data::Dumper; $xml = new XML::Simple; $data = $xml->XMLin("data.xml", KeyAttr => [], ForceArray => 1); foreach $e (@{$data->{data}}) { print "ida: ", $e->{id}, "\n"; print "idb: ", $e->{data}{id}, "\n"; }
Last edited: 2013-02-27 12:43:41 +0100 (CET)
- +12 replies
- Muffi
  
  2013-02-27 13:21
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  das erste Data hat zwar eine id (bei ida), aber kein data (bei idb). Daher ist {data} beim ersten Durchlauf der foreach-schleife keine Hashreferenz
  1 + 1 = 10
  - +11 replies
  - guenni
    
    2013-02-27 13:25
    
    User since
    2013-02-27
    12 articles
    BenutzerIn
    
    Hallo Muffi,
    danke, aber wie komme ich an das id=2.1 oder id=2.1.1 ran?
    Da hakt es bei mir.
    
    Danke
    Guenni
    - +10 replies
    - Muffi
      
      2013-02-27 13:28
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Du willst alle ids auflisten, egal wie tief sie geschachtelt sind?
      1 + 1 = 10
      - +9 replies
      - guenni
        
        2013-02-27 13:35
        
        User since
        2013-02-27
        12 articles
        BenutzerIn
        
        Genau, ich muss auf alle id`s, und evtl weitere, zugreifen.
        Also lesen und schreiben.
        Und zum Schluss muss das alles wieder genauso als XML geschrieben werden.
        
        +8 replies
        
        Muffi
        
        2013-02-27 14:10
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Kennst/kannst du Rekursion?
        1 + 1 = 10
        
        +7 replies
        
        guenni
        
        2013-02-27 15:27
        
        User since
        2013-02-27
        12 articles
        BenutzerIn
        
        Ne, bisher nicht.
        Wäre das das Mittel zur Lösung?
        Dann muss ich mich dazu noch etwas weiter einlesen
        
        Danke
        Guenni
        
        +6 replies
        
        Muffi
        
        2013-02-27 15:33
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Schadet nicht, wenn mans kennt, geht aber auch ohne. Man kann sich auch den Stack selbst baun.
        
        (ungetestet, hab kein XML::Simple zur Hand)
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        ... my @todo = @{$data->{data}}; # unsere Todo-liste als Stack while (@todo) { my $data = pop @todo; # eins runter print "id: ", $data->{id}, "\n"; if (exists $data->{data}) { # hier weiss ich nicht, was XML::Simple bei nur einem vorhandenen data macht, mal ausprobieren obs klappt push @todo, @{$data->{data}}; # die neuen datas auf unsere todo-liste } }
        
        1 + 1 = 10
        
        +5 replies
        
        guenni
        
        2013-02-27 16:49
        
        User since
        2013-02-27
        12 articles
        BenutzerIn
        
        So ganz versteh ich das noch nicht, aber es funktioniert soweit!
        Danke dafür.
        Noch eine Frage dazu: kann ich irgendwie erkennen in welchem Level sich $data jeweils befindet?
        Bestimmte Daten muss ich Abhängigkeit vom Level bearbeiten.
        
        Da merke ich mal wieder was noch so an Verständnis fehlt!
        
        +4 replies
        
        Muffi
        
        2013-02-27 23:58
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Das level muss man mit abspeichern
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my @todos = map { { data => $_, level => 1 } } @{$data->{data}}; while (@todos) { my $todo = pop @todos; print "id: ", $todo->{data}{id}, "\n"; print "level: ", $todo->{level}, "\n"; if (exists $todo->{data}{data}) { push @todos, map { { data => $_, level => $todo->{level} +1 } } @{$todo->{data}{data}}; } }
        
        [EDIT] hübscher (2mal map ersetzt)
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        my @todos = (); push @todos, { data => $_, level => 1 } for @{$data->{data}}; while (@todos) { my $todo = pop @todos; print "id: ", $todo->{data}{id}, "\n"; print "level: ", $todo->{level}, "\n"; if (exists $todo->{data}{data}) { push @todos, { data => $_, level => $todo->{level} +1 } for @{$todo->{data}{data}}; } }
        
        Last edited: 2013-02-28 15:21:13 +0100 (CET)
        1 + 1 = 10
        
        +2 replies
        
        Muffi
        
        2013-02-28 08:25
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Und so ungefähr müsst die rekursive Version ausschaun.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        sub exec_data { my ($data, $level) = @_; print "id: $data->{id}\n"; print "level: $level\n"; if (exists $data->{data}) { exec_data($_, $level +1) for @{$data->{data}}; } } exec_data($_, 1) for @{$data->{data}};
        
        [EDIT] Von der Lesbarkeit find ich die fast schöner, ist aber wohl Geschmackssache. Wenn du eh mal vorhast dir Rekursion anzuschaun wär das ein schönes und einfaches Beispiel. Wärs also wert ein bisschen drüber zu knobeln bis man versteht was es tut.
        Last edited: 2013-02-28 08:47:28 +0100 (CET)
        1 + 1 = 10
        
        guenni
        
        2013-02-28 15:05
        
        User since
        2013-02-27
        12 articles
        BenutzerIn
        
        Toll, da habe ich ja zwei Varianten auf denen ich aufbauen kann.
        Danke, du hast mir sehr geholfen!
        
        guenni
        
        2013-03-05 17:44
        
        User since
        2013-02-27
        12 articles
        BenutzerIn
        
        Noch eine Frage dazu:
        wie kann ich das Element löschen das gerade bearbeitet wird.
        So gehts nicht: Not an ARRAY reference
        
        Code (perl): (dl )
        
        1 2 3 4
        
        while (@todos) { my $todo = pop @todos; print "id: ", $todo->{data}{id}, "\n"; splice(@{$todo->{data}},0,1) if ($todo->{data}{id} =~ /^2$/);

View all threads created 2013-02-27 12:15.