Mit foreach alle Unterelemente eines Elements einer Referenz eines Array of Hashes ausgeben (gelöst) (Allgemeines zu Perl)

[thread]16739[/thread]

Mit foreach alle Unterelemente eines Elements einer Referenz eines Array of Hashes ausgeben [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+3 replies
pulmo

2011-09-16 21:40
User since
2011-09-16
2 Artikel
BenutzerIn
Hallo liebe Community,

ich programmiere seit etwas über drei Monaten mit Perl und habe noch keine Ahnung. Vor allem Referenzen, Hashes und Arrays finde ich extrem kompliziert, vor allem in Kombination.
Ich möchte eine bestimmte Wertegruppe nennen, sagen wir Gruppe 1, und Perl soll mir bitte alle Wertepaare dieser Gruppe zurückgeben, in diesem Fall
"actor"/"pubo"
"years"/"irgendwann" .
Code: (dl )

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

#! /usr/bin/perl @blabber=&Doktor; print $blabber[0]{"komo hu pobe"}; # das funktioniert noch, bin ich stolz drauf print "\n"; while (($key, $value) = each $blabber[1]){ print $key.", ".$value."\n"; } sub Doktor{ my @doctors = ( {"komo hu pobe" => "Zeile 8", "momo en mumu" => "Zeile 827" }, {"actor" => "pubo", "years" => "irgendwann"} ); return @doctors }
Ich mache also eine Referenz "blabber" (ist das eine Referenz?) auf die sub und lasse mir von deren Untergruppe 1 alle Elemente ausgeben. Perl sagt mir, es sei ein array element, ich müsse aber ein hash nehmen. Ja klar ist $blabber[1] ein array element, aber da dieses Element in sich einen anonymen Hash beherbergt, ist es ja irgendwie auch ein Hash. Oder?

Also wir Ihr merkt bin ich recht verwirrt und wäre für Antworten, wie ich es hinkriege, sehr dankbar.

Gruß
Pulmo
Last edited: 2011-09-16 21:43:25 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2011-09-16 21:48
  User since
  2005-01-17
  14848 Artikel
  Admin1
  Wichtig: Nie ohne
  
  Code: (dl )
  
  1 2
  
  use strict; use warnings;
  
  ams Programmanfang programmieren.
  Perl meckert dann, wenn was nicht passt und du stolperst nicht über iegrndwelche Probleme.
  
  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
  
  #! /usr/bin/perl use strict; use warnings; my @blabber=Doktor(); # Funktion in moderner Schreibweise aufrufen! print $blabber[0]{"komo hu pobe"}; # das funktioniert noch, bin ich stolz drauf print "\n"; while (my ($key, $value) = each %{$blabber[1]}){ # Hash-Referenz aus Liste in Hash umwandeln, nennt sich auch dereferenzieren print "$key, $value\n"; # Es darf ruhig alles in eine zeichenkette "" rein } sub Doktor{ my @doctors = ( { "komo hu pobe" => "Zeile 8", "momo en mumu" => "Zeile 827" }, { "actor" => "pubo", "years" => "irgendwann" } ); return @doctors; }
  
  Last edited: 2011-09-16 22:39:08 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - pulmo
    
    2011-09-16 22:55
    
    User since
    2011-09-16
    2 Artikel
    BenutzerIn
    
    Wow, Hammer, danke!!!

View all threads created 2011-09-16 21:40.