Foreach HASH in HASH (Allgemeines zu Perl)

[thread]20733[/thread]

Foreach HASH in HASH

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+7 replies

Gast Oliver

2020-01-31 20:38

Moin
...und schonmal Danke für das Lesen und Helfen :-)

Folgende Datenstruktur (Auszug)
Das sind zwei ineinander verschachtelte HASHs:
%DATA ist ein HASH, das natürlich Pärchen enthält. Diese Pärchen sind der "GruppenName" und ein weiters HASH, das wiederum den "Parameter" und den "WERT" enthält.
Das ähnelt stark dem Aufbau einer INI-Datei. Soll es auch!

Code: (dl )

my %Data = ("FILES", {"CONFIGFILE", "/shares/www/cgi-bin/data.ini",
                      "DEBUG","NO",
                      "ERRORLOG","YES",
                      "DAILYDEBUG","NO",
                      "ERRORLOGFILEPATH","/shares/www/cgi-bin/logs/",
                      "COMMANDFILE","/shares/www/cgi-bin/commands.dat",
                      "DAILYDEBUGFILEPATH","/shares/www/cgi-bin/logs/",
                      "BACKUPFILEPATH","/shares/www/cgi-bin/logs/"},

            "GENERAL", {"LASTDEVICE","30",
                        "TIMEOUTDEVICE", "1",
                        "TIMEOUTGETURL", "1",
                        "MAXIMUM_SEND_ATTEMPTS","5"},

            "DEVICE_0", {"NAME","Flur EG",
                         "DEVICEID","0",
                         "IP","192.168.0.111",
                         "LASTTRYSUCCESSFUL","NO",
                         "LASTERROR","",
                         "LASTRESPONSE","0",
                         "LASTRESPONSETIME","",
                         "ERRORCOUNTER","0",
                         "CONNECTIONERRORCOUNTER","0",
                         "CONNECTIONTRYCOUNTER","0",
                         "CONNECTIONSUCCESSFULCOUNTER","0",
                         "ERRORSAFTERLASTSUCCESS","0"},

            "DEVICE_1", {"NAME","WC",
                         "DEVICEID","1",
                         "IP","192.168.0.112",
                         "LASTTRYSUCCESSFUL","NO",
                         "LASTERROR","",
                         "LASTRESPONSE","0",
                         "LASTRESPONSETIME","",
                         "ERRORCOUNTER","0",
                         "CONNECTIONERRORCOUNTER","0",
                         "CONNECTIONTRYCOUNTER","0",
                         "CONNECTIONSUCCESSFULCOUNTER","0",
                         "ERRORSAFTERLASTSUCCESS","0"},

            "DEVICE_2", {"NAME","Arbeitszimmer",
                         "DEVICEID","2",
                         "IP","192.168.0.113",
                         "LASTTRYSUCCESSFUL","NO",
                         "LASTERROR","",
                         "LASTRESPONSE","0",
                         "LASTRESPONSETIME","",
                         "ERRORCOUNTER","0",
                         "CONNECTIONERRORCOUNTER","0",
                         "CONNECTIONTRYCOUNTER","0",
                         "CONNECTIONSUCCESSFULCOUNTER","0",
                         "ERRORSAFTERLASTSUCCESS","0"},
        )

Jetzt würde ich gerne eine Tabelle ausgeben

Quote
GruppenName1 Parameter1 Wert1
GruppenName1 Parameter2 Wert2
GruppenName1 Parameter3 Wert3
GruppenName1 Parameter4 Wert4
GruppenName1 Parameter5 Wert5
GruppenName2 Parameter1 Wert1
GruppenName2 Parameter2 Wert2
GruppenName2 Parameter3 Wert3
GruppenName2 Parameter4 Wert4
GruppenName2 Parameter5 Wert5
.....

Klingt (und ist wohl eine Aufgabe für foreach. Ich verzweifle aber gerade an der Verschachtelung :-( Und da wäre es super, wenn mir jemand auf die Sprünge helfen könnte.

Mein Code-Ansatz wie folgt

Code: (dl )

1
2
3

foreach $Gruppe (keys %Data) { 
  print $Gruppe . " " . $Data{$Gruppe} . "\n"; 
};

Die Ausgabe ist bei obigem Code

Quote
GruppenName HASH(0x55892bc68418)
GruppenName HASH(0x55892bc5f5b0)
GruppenName HASH(0x55892bc69138)
....

Soweit so Gut! Eine Verschachtelung von foreach bekomme ich aber nicht hin!

Code: (dl )

foreach $Gruppe (keys %Data) { 
  foreach $Parameter (keys %Data{Gruppe}) { 
    print $Gruppe . " " . $Parameter . " " . $Data{$Gruppe}{$Parameter} . "\n"; 
  };
};

Das geht so nicht :-(
Hat jemand eine Idee?

Besten Dank!
Last edited: 2020-01-31 22:13:48 +0100 (CET)

+2 replies
Linuxer

2020-01-31 22:20
User since
2006-01-27
3870 Artikel
HausmeisterIn
Code (perl): (dl )

1 2 3 4 5

foreach $Gruppe (keys %Data) { foreach $Parameter (keys %Data{Gruppe}) { print $Gruppe . " " . $Parameter . " " . $Data{$Gruppe}{$Parameter} . "\n"; }; };
Deine innere Schleife schaut fehlerhaft in der Dereferenzierung aus.

1. Du greifst auf ein Hash-Element "Gruppe" zu, nicht auf $Gruppe.
2. $Data{$Gruppe} enthält eine Hash-Referenz, die dereferenziert werden muss.

Versuch mal:
Code (perl): (dl )

1 2 3 4 5

foreach $Gruppe (keys %Data) { foreach $Parameter (keys %{ $Data{$Gruppe} } ) { print $Gruppe . " " . $Parameter . " " . $Data{$Gruppe}{$Parameter} . "\n"; }; };
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- Gast Oliver
  
  2020-01-31 22:24
  
  Ja, genau, Danke!
  Habe die Lösung schon selber gefunden!
  
  Natürlich handelt es sich um einen Zeiger, den das erste foreach liefert und dem Perl muss ich dann sagen, was er an dem Zeiger findet %{...}. Dann geht auch das zweite foreach
  
  Danke!
  Last edited: 2020-02-01 09:14:30 +0100 (CET)
Gast Oliver

2020-01-31 22:21
Sorry Jungs! Ich war selber schneller :-)

Das ist die bzw eine Lösung. Oder zumindest geht es so!
Code: (dl )

1 2 3 4 5

foreach $Gruppe (keys %Data) { foreach $Element (keys %{$Data{$Gruppe}}) { print $Gruppe . " " . $Element . " " . $Data{$Gruppe}{$Element} . "\n"; }; };
Last edited: 2020-02-01 09:14:34 +0100 (CET)
+2 replies
haj

2020-01-31 22:26

User since
2015-01-07
527 Artikel
BenutzerIn

Als Ergänzung zur Lösung von Linuxer (er war schneller): Bei solchen Aufgaben ist es meistens sinnvoll, die Schlüssel zu sortieren, also in beiden Schleifen keys durch sort keys zu ersetzen.

Sonst ist die Ausgabe bei jedem Programmlauf anders angeordnet, das macht das Testen und Vergleichen der Programmausgabe schwieriger als nötig.
- Gast Oliver
  
  2020-01-31 22:33
  
  Das ist ein geiler Kommentar!
  Ich suchte schon nach einer Möglichkeit zu sortieren. "sort keys" kannte ich bisher nicht.
  
  Danke
  Last edited: 2020-02-01 09:15:03 +0100 (CET)
rosti

2020-02-01 08:59

User since
2011-03-19
3194 Artikel
BenutzerIn

Quote
Jetzt würde ich gerne eine Tabelle ausgeben

Ein klarer Fall für HTML::Template bzw. Text::Template. Die Templateengine bekommt das Array mit den Values, fertig.

MFG

Die Values sind Hashreferenzen. my @slice = values %Data; liefert das Array. Wo kommen denn die Daten her?
Last edited: 2020-02-01 09:43:43 +0100 (CET)

View all threads created 2020-01-31 20:38.