Array-Elemente sortieren/gruppieren (Allgemeines zu Perl)

[thread]17225[/thread]

Array-Elemente sortieren/gruppieren

Tags: perl5 Ähnliche Threads

Leser: 27

Articles: hide open all | hide show old branches

+8 replies
Gast turbo

2012-03-08 12:59
hallo,
meine ausgangssituation ist folgende:
mit einem skript lese ich xml dokumente aus, wobei mich dabei speziell die inhalte zweier bestimmter tags interessieren.mal schematisch die xml:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

<xml> <knoten> <x>!!!</x> <y>!!!</y> </knoten> <knoten> <x>!!!</x> <y>!!!</y> </knoten> </xml>
dabei ist es so das <x> nur bestimmte zahlen beinhaltet , zbsp. 2,4,6,8 ; und <y> die eigentliche veränderliche ist. dieses wertepaar landet für jeden knoten in einem array. (quasi @array=("x : y","x : y",...) )
ich möchte jetzt gerne alle <y> werte für x=2/x=4 usw aufaddieren. aber ich stehe etwas auf dem schlauch was die herangehensweise angeht.
nach konkreten x werten zu filtern wäre dabei etwas umständlich, da das sehr viele sind und sich u.U. von xml zu xml unterscheiden.
habt ihr ne idee?
Last edited: 2012-03-08 13:02:03 +0100 (CET)
- +3 replies
- rosti
  
  2012-03-08 13:13
  
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  
  Quote
  ch möchte jetzt gerne alle <y> werte für x=2/x=4 usw aufaddieren. aber ich stehe etwas auf dem schlauch was die herangehensweise angeht.
  
  Es gibt Module, die lesen XML auf eine Datenstruktur. Das wäre meine Herangehensweise ;)
  
  --Rosti
  - Gast turbo
    
    2012-03-08 14:42
    Code: (dl )
    
    use XML::LibXML;
    
    i know ;)
    so weit auch kein problem, mir gehts eher darum, innerhalb des arrays die wertepaare mit gleichem x-wert zusammenzufassen
    Last edited: 2012-03-08 15:16:42 +0100 (CET)
  - Gast turbo
    
    2012-03-08 14:43
    
    oder was meinst du mit "lesen auf eine Datenstruktur"?
    Last edited: 2012-03-08 15:16:40 +0100 (CET)
- hlubenow
  
  2012-03-08 16:38
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Es ist klar, daß ein XML-Modul die bessere Lösung ist.
  Zur Not kann man's auch mit einer RegEx parsen.
  Hier mal ein Beispiel, das aber noch viele Fehler enthalten dürfte (und auch nicht sonderlich schön ist):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
  
  #!/usr/bin/perl use warnings; use strict; my $a = <<HERE; <xml> <knoten> <2>!!!</2> <y>15</y> </knoten> <knoten> <4>!!!</4> <y>30</y> </knoten> </xml> HERE my @b = split("\n", $a); my @xvals = (2, 4, 6, 8); my @collection = (); my $i; my $u; for ($i=0; $i < $#b; $i++) { foreach $u (@xvals) { if ($b[$i] =~ /<$u>[^>]*<\/$u>/) { if ($b[$i + 1] =~ /<.+>([^>]*)<\/.+>/) { my $href = {$u => $1}; push(@collection, $href); last; } else { die "Error: No y-line after x-line,"; } } } } my %result = (); foreach $i (@xvals) { foreach $u (@collection) { my %hash = %{$u}; my @onehashkey = keys(%hash); my $key = $onehashkey[0]; if ($key eq $i) { $result{$key} += $hash{$key}; } } } foreach $i (sort(keys(%result))) { print "$i => $result{$i}\n"; }
- +3 replies
- GwenDragon
  
  2012-03-08 17:31
  
  User since
  2005-01-17
  14759 Artikel
  Admin1
  
  2012-03-08T15:47:16 FIFO
  Guest turbo
  ... dieses wertepaar landet für jeden knoten in einem array. (quasi @array=("x : y","x : y",...) )
  ich möchte jetzt gerne alle <y> werte für x=2/x=4 usw aufaddieren.
  
  Na, leg einen Hash an (mit den x-Werten als keys) und mach an der Stelle, wo das Wertepaar in einem array landet, ein $sum_hash{$x} += $y;. Vorher nicht existente keys werden automatisch angelegt.
  
  hast du das schon gesehen?
  
  Editiert von GwenDragon: FIFOs Beitrag hier eingefügt
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Gast turbo
    
    2012-03-09 14:15
    
    nee, das hab ich noch nicht gesehen. über assoziative arrays hatte ich auch schon nachgedacht. aber da ich damit noch nie gearbeitet hab, hab ich mich da nicht so richtig rangetraut..
    ich habe das ganze jetzt vorläufig erst mal quick&dirty gelöst wie man so schön sagt, indem ich doch für jedes $x ein array bilde und die array elemente aufaddiere. ich versuche mich aber übers wochenende mal an den hashes
    Last edited: 2012-03-09 14:17:26 +0100 (CET)
    - rosti
      
      2012-03-09 19:16
      
      User since
      2011-03-19
      3492 Artikel
      BenutzerIn
      
      Quote
      aber da ich damit noch nie gearbeitet hab, hab ich mich da nicht so richtig rangetraut..
      
      Ok, das erklärt Deine Frage nach den von mir erwähnten Datenstrukturen.
      
      Kurzum: Ein Hash ist eine Datenstruktur mit Schlüssel => Werte - Paaren. In Perl wird sehr viel mit Hashes gemacht, gehe dies Theme so früh wie möglich an ;)
      
      Im nächsten Schritt kommt das Arbeiten mit Referenzen. Hash-Referenzen und Referenzen im Hash selbst und Referenzen auf Referenzen. Aus der Perldoc (frei übersetzt): Es ist alles halb so wild.
      
      Unterstützung gibt Dir das Modul Data::Dumper, mit Dumper kannst Du Dir die Datenstrukturen anschauen und bekommst eine sehr bildliche Darstellung. Beispiel:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      use Data::Dumper; print Dumper \%ENV; # Dumper kriegt eine Hash-Referenz übergeben # und stellt den Hash %ENV sehr anschaulich dar
      
      CPAN-Module, mit denen Du XML-Dateien parsen kannst, legen textlich strukturierte Daten um in eine Hash-Referenz. Kleine Übung: Nimm XML, übergib den XML-String oder das Filehandle einem XML-Parser und gib mit Data::Dumper die erzeugte Hash-Referenz aus. Möglicherweise siehst Du dann auch Array-Referenzen in einer solchen Struktur und damit weißt Du dann auch, wo Dein Code hingreifen muss.
      
      Alles halb-so-wild ;)
      
      Viel Spaß!

View all threads created 2012-03-08 12:59.