XML::Simple nested nodes löschen (Fragen zu Perl-Modulen)

[thread]18189[/thread]

XML::Simple nested nodes löschen

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+10 replies
guenni

2013-03-08 11:34
User since
2013-02-27
12 Artikel
BenutzerIn
Hallo,
in einem anderen Thread habe ich gelernt (??) wie ich durch verschachtelte Nodes parsen kann.
Inzwischen kann ich diese auch bearbeiten und sortieren.

Jetzt möchte ich gerne noch einzelne dieser Nodes löschen.
Ich habe das mit splice und delete probiert, komme aber zu keinem Ergebnis.

Hier das XML:
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 hier das Perl:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

use strict; use XML::Simple; use Data::Dumper; my $xml = new XML::Simple; my $data = $xml->XMLin("data.xml", KeyAttr => [], ForceArray => 1); my @todos = (); push @todos, { data => $_ } for @{$data->{data}}; while (@todos) { my $todo = pop @todos; if ($todo->{data}{id} =~ /^2$/){ print "delete\n"; delete ($todo->{data}); # splice(@{$todo->{data}},0); print Dumper $todo; next; } } XMLout($data, OutputFile => 'out.xml', rootname => 'items', XMLDecl => '<?xml version="1.0" encoding="UTF-8"?>'); print Dumper $data;
Im Dump innerhalb der Schleife kann ich sehen, das der Node mit der "id=2" nach dem delete leer ist ($VAR1 = {};).
Im Dump nach der Ausgabe und in der Ausgabe selbst ist aber alles noch enthalten.

Irgendwie habe ich das ganze Konzept wohl noch nicht verstanden, kann mir vielleicht jemand erläutern wo mein Denkfehler ist.

Danke
Guenni
- Raubtier
  
  2013-03-08 12:12
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  2013-03-08T10:34:51 guenni
  Hallo,
  in einem anderen Thread habe ich gelernt (??) wie ich durch verschachtelte Nodes parsen kann.
  Inzwischen kann ich diese auch bearbeiten und sortieren.
  
  Jetzt möchte ich gerne noch einzelne dieser Nodes löschen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my $data = $xml->XMLin("data.xml", KeyAttr => [], ForceArray => 1); my @todos = (); push @todos, { data => $_ } for @{$data->{data}}; while (@todos) { ... delete ($todo->{data}); ... } print Dumper $data;
  
  Im Dump innerhalb der Schleife kann ich sehen, das der Node mit der "id=2" nach dem delete leer ist ($VAR1 = {};).
  Im Dump nach der Ausgabe und in der Ausgabe selbst ist aber alles noch enthalten.
  
  Irgendwie habe ich das ganze Konzept wohl noch nicht verstanden, kann mir vielleicht jemand erläutern wo mein Denkfehler ist.
  
  Ich habe dir den relevanten Perl-Code mal zusammengekürzt. In Kurz:
  dein @todo enthält einen neuen, anonymen Hashref mit data => irgendwas_aus_xml. Dann gehst du das Todo durch und löschst aus der neuen Hashref den data-Key.
  
  Das ganze hat natürlich keinen Effekt auf die Variable $data, sondern eben nur auf den neu erzeugten Hash. Das Value zeigt zwar in das $data rein, aber das änderst du ja nicht. Du darfst also nicht die Kopie ändern, sondern musst aus dem eigentlichen Hash den Key löschen.
- +8 replies
- Muffi
  
  2013-03-08 13:35
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  So in etwa:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  my @todos = $data; while (@todos) { my $todo = pop @todos; if (exists $todo->{data}) { for (my $x=0; $x < @{$todo->{data}}; $x++) { if ($todo->{data}[$x]{id} eq '2') { delete $todo->{data}[$x]; } else { push @todos, $todo->{data}[$x]; } } } }
  
  Allerdings wirds da wohl für Anfänger ein wenig schwierig das zu verstehen.
  Guck dir mal die Erklärung von Raubtier an, ob du damit weiterkommst.
  1 + 1 = 10
  - +4 replies
  - guenni
    
    2013-03-08 14:55
    User since
    2013-02-27
    12 Artikel
    BenutzerIn
    
    Aber mit z.B.
    
    Code (perl): (dl )
    
    $todo->{data}{id} = 5 if ($todo->{data}{id} =~ /^1$/);
    
    innerhalb der Schleife kann ich die id z.B. von 1 auf 5 ändern. Und das ist auch in der Ausgabe drin.
    Die Erläuterung von Raubtier war auch mein erster Verdacht, ab das widerspricht sich doch, oder?
    Und in deinem Beispiel wird doch auch $todo->{data} geändert?
    
    (Kann Perl eigentlich Hirntumore auslösen?)
    - +3 replies
    - Raubtier
      
      2013-03-08 15:11
      
      User since
      2012-05-04
      1083 Artikel
      BenutzerIn
      
      Nein, das widerspricht sich nicht!
      
      Du hast
      
      key -> referenz auf Wert
      
      Wenn du die den Wert aenderst (huch, was ist hier mit den Umlauten los?), aendert der sich natuerlich auch im Ursprungsarray. Du aenderst aber nur in der Kopie.
      
      Mit { data => referenzXXX } erstellst du einen neuen Hash mit einem Element, dessen Key "data" ist und dessen Wert die Referenz in den Ursprungshash ist, hier mal referenzXXX genannt (eigentlich bekommst du eine Referenz auf diesen neuen Hash, aber das ist egal, und damit du nicht verwirrt wiest, habe ich der referenz oben XXX angefuegt). Wenn du nun delete data machst oder irgendwelche anderen Keys hinzufuegst, aendert sich am Original nichts. Wenn du aber irgendwie auf die referenzXXX zugreifst, aenderst du auch im Original.
      - +2 replies
      - guenni
        
        2013-03-08 15:26
        
        User since
        2013-02-27
        12 Artikel
        BenutzerIn
        
        Raubtier: vielen Dank!
        ok:
        $data->{data}{id}
        und
        $todo->{data}{id}
        sind gleich, da beide auf den gleichen Ursprung referenzieren.
        $data->{data}
        und
        $todo->{data}
        hier ist $todo->{data} eine eigenständige Kopie von $data->{data}.
        
        Mein Fehler liegt also im Verständnis der Hashes und Referenzen.
        Da muss ich wohl noch einen besseren Einstieg in das Thema finden.
        Kennst du dazu ein Tutorial (für Dummies und in Deutsch)?
        
        Muffi
        
        2013-03-08 15:45
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ein bisserl unglücklich ist, dass in deinem Beispiel eine Hashreferenz mit dem Key data erzeugt wurde.
        
        Code (perl): (dl )
        
        push @todos, { data => $_ } for @{$data->{data}};
        
        Nennen wir ihn mal fuzzl:
        
        Code (perl): (dl )
        
        push @todos, { fuzzl => $_ } for @{$data->{data}};
        
        d.h. der originale data-block wird im Hashkey fuzzl abgelegt.
        Und dann wird vielleicht auch delete ($todo->{fuzzl}); klarer.
        Das löscht nicht den data-key aus dem Ursprungshash, sondern den fuzzl-key aus dem todo.
        
        Die neue Lösung wirft direkt die data-struktur auf die todos. Mit delete $todo->{data}[$x]; löscht du dann auch direkt den X-ten Unterdatablock.
        Last edited: 2013-03-08 15:46:39 +0100 (CET)
        1 + 1 = 10
  - +3 replies
  - guenni
    
    2013-03-08 15:06
    User since
    2013-02-27
    12 Artikel
    BenutzerIn
    
    Deine Lösung liegt wohl hier drin
    
    Code (perl): (dl )
    
    for (my $x=0; $x < @{$todo->{data}}; $x++) {
    
    kannst du mir das
    
    Code (perl): (dl )
    
    $x < @{$todo->{data}}
    
    dadrin erläutern?
    - +2 replies
    - Raubtier
      
      2013-03-08 15:13
      
      User since
      2012-05-04
      1083 Artikel
      BenutzerIn
      
      2013-03-08T14:06:44 guenni
      kannst du mir das
      
      Code (perl): (dl )
      
      $x < @{$todo->{data}}
      
      dadrin erläutern?
      
      $todo->{data} ist eine Array-Referenz. mit @{array-ref} dereferenziert man diese. Und @array gibt im Skalarkontext die Anzahl Elemente.
      - guenni
        
        2013-03-08 18:22
        
        User since
        2013-02-27
        12 Artikel
        BenutzerIn
        
        Logisch, d.h. also nichts weiter als
        $x kleiner als Anzahl Elemente im Array.
        
        Da habe ich mich durch die Hashes, Referenzen, etc. verwirren lassen.

View all threads created 2013-03-08 11:34.