Problem mit Listen und Hashs (Allgemeines zu Perl)

[thread]16991[/thread]

Problem mit Listen und Hashs

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+13 replies
ThomasC

2011-12-15 23:28
User since
2011-12-15
4 Artikel
BenutzerIn
Hallo zusammen,

ich beschäftige mich neu mit Perl, da ich eine kleine Linux-Box erstanden habe, die man mit Perl-Plugins erweitern kann. Ich habe ein Problem, bei dem ich trotz stundenlangem Suchen nicht fündig werde. Ich hoffe, hier kann mir jemand helfen.

Der folgende - aufs Notwendigste reduzierte - Code bringt nicht das erwartete Ergebnis.
Code (perl): (dl )

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

my @Logwerte = ( { Name => "Name1", GAs => ({GA => "GA1", columnName => "A"})}, { Name => "Name2", GAs => ({GA => "GA2", columnName => "A"}, {GA => "GA3", columnName => "B"})}, ); # log each group address foreach my $element (@Logwerte) { foreach my $GAelement ($element->{GAs}) { plugin_log($plugname, "subscribe for GA [$GAelement->{GA}] and columnName [$GAelement->{columnName}]"); } }
Ich würde erwarten, dass das hier ausgegeben wird:
Code: (dl )

1 2 3

2011-12-15 23:13:02.211,TestPlugin,subscribe for GA [GA1] and columnName [A] 2011-12-15 23:13:02.212,TestPlugin,subscribe for GA [GA2] and columnName [A] 2011-12-15 23:13:02.213,TestPlugin,subscribe for GA [GA3] and columnName [B]
Tatsächlich erhalte ich aber nur das Folgende:
Code: (dl )

1 2

2011-12-15 23:13:02.211,TestPlugin,subscribe for GA [GA1] and columnName [A] 2011-12-15 23:13:02.212,TestPlugin,subscribe for GA [GA2] and columnName [A]
Mein Verständnis des Codes ist, dass ich eine Liste mit Hashs habe. In diese Hashs stecke ich einmal einen String und einmal erneut eine Liste mit Hashs.
Das Iterieren über die äußere Liste funktioniert einwandfrei. Die zweite foreach-Schleife funktioniert nicht wie erwartet. Hier wird nur das erste Listenelement gefunden. Ich habe einiges ausprobiert, komme aber nicht auf das gewünschte Ergebnis. Alles Lesen hat mich bisher nicht weitergebracht.

Wo liegt mein Denkfehler? Funktioniert das überhaupt so, wie ich mir das vorstelle?

Schon mal vielen Dank für Eure Hilfe und Bemühungen
Last edited: 2011-12-15 23:29:36 +0100 (CET)
- +3 replies
- lichtkind
  
  2011-12-15 23:32
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  Code (perl): (dl )
  
  foreach my $GAelement (@($element->{GAs}))
  
  for dereferenziert nicht
  Last edited: 2011-12-15 23:33:34 +0100 (CET)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +2 replies
  - ThomasC
    
    2011-12-15 23:43
    
    User since
    2011-12-15
    4 Artikel
    BenutzerIn
    
    Danke für die schnelle Antwort. Das hatte ich auch ausprobiert. Dann bekomme ich aber eine Fehlermeldung:syntax error at (eval 30441) line 9, near "@($element"
    - lichtkind
      
      2011-12-16 00:32
      
      User since
      2004-03-22
      5697 Artikel
      ModeratorIn + EditorIn
      
      mein fehler es müssen geschweifte, nicht runde Klammern sein
      
      Code (perl): (dl )
      
      for my GA ( @{ $element->{GAs} } ) { ...
      
      ich schreib liebr for statt foreach. effekt ist der selbe.
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
- lichtkind
  
  2011-12-15 23:40
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  in
  
  Code (perl): (dl )
  
  $Logwerte[1]{'GAs'}
  
  steckt referenz und kein string. lies dir mal dashier dazu durch:
  
  http://wiki.perl-community.de/Wissensbasis/Perl5Tu...
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- +2 replies
- topeg
  
  2011-12-16 00:33
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Erstens musst du anonyme Arrays nutzen : [...]
  Zweitens musst du die Arrays dereferenzieren, bevor du über sie iterieren kannst: @{...}
  Allso hiet der Code:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  my @Logwerte = ( { Name => "Name1", GAs => [{GA => "GA1", columnName => "A"}]}, { Name => "Name2", GAs => [{GA => "GA2", columnName => "A"}, {GA => "GA3", columnName => "B"}]}, ); # log each group address for my $element (@Logwerte) { for my $GAelement (@{$element->{GAs}}) { print "subscribe for GA [$GAelement->{GA}] and columnName [$GAelement->{columnName}]") } }
  
  Perl hat aus deinem Code gemacht:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  my @Logwerte = ( { Name => "Name1", GAs => { GA => "GA1", columnName => "A" } }, { Name => "Name2", GAs => { GA => "GA2", columnName => "A" }, 'HASH(0815)' => undef }, );
  
  und bei foreach my $GAelement ($element->{GAs}) war das Array ein Element lang und enthielt nur $element->{GAs}
  - ThomasC
    
    2011-12-16 01:00
    
    User since
    2011-12-15
    4 Artikel
    BenutzerIn
    
    Super. Danke. Das war der entscheidende Tipp. Das mit den anonymen Arrays war mir nicht bewusst.
- +6 replies
- hlubenow
  
  2011-12-16 00:42
  User since
  2009-02-22
  877 Artikel
  BenutzerIn
  Hi,
  
  Quote
  ich beschäftige mich neu mit Perl, da ich eine kleine Linux-Box erstanden habe
  
  Und da mußt Du gleich so komplexe Strukturen benutzen?
  
  Dieses Thema mit ineinander verschachtelten Hashes finde ich in Perl immer sehr schwer zu verstehen. Da kommt man leicht mit "%$a" usw. durcheinander.
  
  Man muß leider sagen, daß das eines der Dinge ist, die in Python leichter zu handhaben sind. Da funktioniert das so, wie Du Dir das vorstellst:
  
  Code (python): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/python # coding: iso-8859-1 Logwerte = [{ "name" : "Name1", "GAs" : [{ "GA" : "GA1", "columnName" : "A"}]}, { "name" : "Name2", "GAs" : [{ "GA" : "GA2", "columnName" : "A"}, { "GA" : "GA3", "columnName" : "B"}]}] for element in Logwerte: for GAelement in element["GAs"]: print "subscribe for GA " + GAelement["GA"] + " and columnName " + GAelement["columnName"]
  
  Bitte lyncht mich jetzt nicht. ;)
  Ich hab' wirklich versucht, das nach Perl zu übersetzen, bin aber daran leider (mal wieder) gescheitert.
  Last edited: 2012-02-25 18:29:51 +0100 (CET)
  - ThomasC
    
    2011-12-16 01:05
    
    User since
    2011-12-15
    4 Artikel
    BenutzerIn
    
    2011-12-15T23:42:11 hlubenow
    Und da mußt Du gleich so komplexe Strukturen benutzen?
    
    Da lernt man am meisten! Naja, Spaß beiseite. Die einfacheren Dinge habe ich relativ schnell durch Copy&Paste, Ausprobieren, etc. kapiert. Da kommt mit seinem Wissen aus anderen Sprachen und Google doch relativ weit.
    Dann musste ich mich ja mal an etwas Schwierigeres wagen.
    
    Grüße
  - lichtkind
    
    2011-12-16 12:04
    
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    ja perl hat da einen anchteil den sie jetzt langsam beheben und auch mit perl 6 behoben haben. lies dir den artikel durch wenn magst den ich empfahl und der das erklärt, steht aber auch im Kamelbuch.
    
    http://wiki.perl-community.de/Wissensbasis/Perl5Tu...
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
  - hlubenow
    
    2012-02-25 18:31
    User since
    2009-02-22
    877 Artikel
    BenutzerIn
    
    So, jetzt habe ich das auch endlich einigermaßen verstanden:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
    
    #!/usr/bin/perl use warnings; use strict; my @Logwerte = ({ name => "Name1", GAs => [{ GA => "GA1", columnName => "A"}]}, { name => "Name2", GAs => [{ GA => "GA2", columnName => "A"}, { GA => "GA3", columnName => "B"}]}); for my $element (@Logwerte) { for my $GAelement (@{$element->{GAs}}) { print "subscribe for GA [$GAelement->{GA}] and columnName [$GAelement->{columnName}]\n"; } }
    
    Ist im Prinzip genau das, was topeg oben schon (gleich) gepostet hatte.
    
    Im Vergleich mit dem Python-Code ist das schon ein bißchen schwieriger, aber sieht im Ergebnis dann doch wieder recht ähnlich aus.
    Kann man eigentlich auch ganz gut mit leben. ;)
  - +2 replies
  - pq
    
    2012-02-25 18:33
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    ich hatte es ja schonmal erwähnt: bitte mach deine edits kenntlich, es gibt dafür auch ein extra kommentarfeld.
    du änderst teilweise deine artikel komplett und dann machen antworten darauf gar keinen sinn mehr.
    dafür ist die edit-funktion nicht gedacht. häng den neuen inhalt im zweifel unten dran oder schreib einen neuen artikel.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - hlubenow
      
      2012-02-25 18:53
      
      User since
      2009-02-22
      877 Artikel
      BenutzerIn
      
      2012-02-25T17:33:49 pq
      ich hatte es ja schonmal erwähnt: bitte mach deine edits kenntlich, es gibt dafür auch ein extra kommentarfeld.
      du änderst teilweise deine artikel komplett und dann machen antworten darauf gar keinen sinn mehr.
      dafür ist die edit-funktion nicht gedacht. häng den neuen inhalt im zweifel unten dran oder schreib einen neuen artikel.
      
      Ok, werd' mich bemühen. Meistens nehme ich nur kleine Änderungen in den folgenden Minuten vor, das heißt, ich möchte Rechtschreibfehler usw. nicht gern stehenlassen, wenn ich sie noch sehe.
      
      Diesmal war's aber ein Unfall: Wollte auf mein eigenes Posting "antworten" und hab' versehentlich "editieren" gewählt; dann mußte ich das alles nochmal zurückeditieren. Kann ja mal passieren.
      
      Wollt' noch sagen: Dieser Thread hier scheint mir ganz gut zum Lernen und als "Test" geeignet, das heißt, wenn man eine so komplexe Datenstruktur erzeugen und darauf zugreifen kann, hat man schon einiges gewonnen. :)

View all threads created 2011-12-15 23:28.