Multi Array aufdröseln (gelöst) (Allgemeines zu Perl)

[thread]19537[/thread]

Multi Array aufdröseln [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+8 replies
peterb

2015-03-04 14:11
User since
2010-05-19
42 Artikel
BenutzerIn
Hallo

Ich habe ein MultiArray, welches ich jetzt auf eine einfache Art aufdröseln möchte. Der Knackpunkt ist, dass dieses "aufdröseln", variabel sein sollte.
Code: (dl )

1 2 3 4 5 6

FARBE,FRUCHT,GESCHMACK rot,Himbeere,sauer rot,Kirsche,sauer blau,Brombeere,sauer blau,Gummibeeren,süß grün,Apfel,süß
Ich möchte nun gerne jede Farbe separat auflisten können,
welche Frucht da drinnen ist, es können wie gesagt neue Farben dazu kommen.
Alle dahinter liegenden Attribute sollen erhalten bleiben.

Vielen Dank
Peter

modedit Editiert von pq: code-tag
Last edited: 2015-03-06 12:20:36 +0100 (CET)
- +7 replies
- payx
  
  2015-03-04 14:23
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo peterb,
  
  vielleicht so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my @AoA = ( [qw(rot Himbeere sauer )] , [qw(rot Kirsche sauer )] , [qw(blau Brombeere sauer )] , [qw(blau Gummibeeren süß )] , [qw(grün Apfel süß )] ); my %HoAoA; push @{$HoAoA{$_->[0]}}, [@$_[1,2]] for @AoA; print Dumper \%HoAoA;
  
  Falls Unklarheiten sind, frag nach!
  
  HTH
  Grüße
  payx
  - +2 replies
  - Gast peterb
    
    2015-03-06 09:49
    
    Vielen Dank
    
    Das funktioniert sehr gut.
    
    So wie ich es verstanden habe wird hier ein Hash aus dem Array generiert,
    wobei das 1. Attribut der Key und die anderen Attribute der Value sind.
    
    push @{$HoAoA{$_->[0]}}, [@$_[1,2]] for @AoA;
    
    Wieso aber wird dem Hash ein @ vorgesetzt, ist das dann was spezielles?
    
    Danke
    Peter
    Last edited: 2015-03-06 10:11:39 +0100 (CET)
    - Raubtier
      
      2015-03-06 10:21
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Guest peterb
      push @{$HoAoA{$_->[0]}}, [@$_[1,2]] for @AoA;
      
      Wieso aber wird dem Hash ein @ vorgesetzt, ist das dann was spezielles?
      
      Also:
      %HoAoA ist der Hash.
      $HoAoA{$_->[0]} ist der Wert des Hashes an der Stelle $_->[0]. Dieses ist bei dir eine Referenz auf ein Array.
      Du könntest also schreiben: my $arrayRef = $HoAoA{$_->[0]};.
      Mit @{...} dereferenzierst du eine Array-Referenz. Hier also dereferenzierst du die vorher aus dem Hash geholte Referenz. Hier könntest du also schreiben: push @{$arrayRef}, ...;.
      
      Somit ist nicht dem Hash ein @ vorgesetzt, sondern dem Hash-Wert.
      
      Mehr Infos zum Beispiel hier:
      perllol, perlref, perlreftut, perldsc
  - +4 replies
  - peterb
    
    2015-03-06 09:56
    
    User since
    2010-05-19
    42 Artikel
    BenutzerIn
    
    Vielen Dank
    
    So wie ich es verstanden habe, wird das @AoA durchgegangen und der erste Wert als KEY definiert und die anderen beiden Werte werden als eigenes Array in den VALUE eingefügt
    
    blau => ARRAY(0x1fb5e94)
    gruen => ARRAY(0x1f4ec9c)
    
    Wie kann ich das Array dann auslesen?
    Danke
    Peter
    - +3 replies
    - Muffi
      
      2015-03-06 10:01
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Bei Perl ist das so, dass ein Hash-Key nur EINEN! einzigen Wert aufnehmen kann, nicht 2. Deshalb kannst du in einen Hash-Key auch kein Array mit 2 Werten hineinstecken.
      Was aber geht - und was du wohl auch gemacht hast ist die Referenz (Weil Referenz ist nur 1 Wert) auf ein Array (sozusagen ein Zeiger, der auf das Array zeigt) hineinzulegen.
      Und wenn du das ausgibst, dann sagt dir Perl, dass du als Wert eine Referenz auf ein Array hast, dass an der Speicheradresse "0x1fb5e94" liegt.
      Wenn du das Array selbst haben willst musst du es noch dereferenzieren.
      1 + 1 = 10
      - +2 replies
      - peterb
        
        2015-03-06 10:30
        
        User since
        2010-05-19
        42 Artikel
        BenutzerIn
        
        uff! ... das ist mir jetzt irgendwie zu hoch,
        da sollte ich noch ein wenig nachlesen
        
        Ich habs aber soweit zum laufen gebracht, das ich was damit anfangen kann.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        foreach my $k (keys %HoAoA) { foreach (@{$HoAoA{$k}}) { foreach ($_) { print "$k - @{$_}\n"; }; }; };
        
        Vielen Dank
        
        modedit Editiert von pq: code-tags
        Last edited: 2015-03-06 12:20:16 +0100 (CET)
        
        payx
        
        2015-03-06 11:40
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo peterb,
        
        bitte setze Code-Beispiele in Code-Tags.
        
        2015-03-06T09:30:55 peterb
        ... da sollte ich noch ein wenig nachlesen
        Ja, das kann nicht schaden. Komplexe Datenstrukturen sind – äh, komplex.
        
        2015-03-06T09:30:55 peterb
        Ich habs aber soweit zum laufen gebracht, das ich was damit anfangen kann.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        foreach my $k (keys %HoAoA) { foreach (@{$HoAoA{$k}}) { foreach ($_) { print "$k - @{$_}\n"; }; }; };
        
        Hier eine Variante, die die Datenstruktur etwas besser erkennen lässt und die innerste Schleife einspart (stattdessen wird join verwendet):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        for my $k (keys %HoAoA) { print "$k\n"; for my $ar (@{$HoAoA{$k}}) { print " "x4 , join " ", @$ar, "\n"; }; };
        
        HTH
        Viel Erfolg mit Perl weiterhin
        und Grüße
        payx

View all threads created 2015-03-04 14:11.