[gelöst] hash of hash

[andies]

Guten Morgen, ich benötige mal Hilfe vom Forum und den Perl-Experten. Ich möchte gern einen hash der Form

Code Auswählen Erweitern

%eCharts_data{idx} = {{2024-02-05T00:22:33 => 47.2}, {2024-02-05T01:22:36 => 45.1}, ...usw erzeugen lassen. Das geschieht in einer Schleife. Mir gelingt es aber nicht, den Hash aufzubauen, es erscheint immer nur das letzte Element:

Code Auswählen Erweitern

    while($dpoff < $dpl) {               
...
       if ($wert) {
          my %charthash = ();
          $charthash{$datum}= $wert;
          $eCharts_data{$idx} =  \%charthash;
        }
...
Kann mir jemand sagen, was ich da falsch mache oder wo ich diesbezüglich etwas nachlesen kann?

[yersinia]

Gefühlt sieht deine Logik komisch aus. In dem Then-Zweig definierst du den hash (charthash), schreibst genau ein Wertepaar rein und übergibst dies einem anderen hash-Element (eCharts_data). Sollte sich im nächsten Durchlauf $idx nicht ändern, überschreibst du das eCharts_data Element wieder mit dem dann neu definierten charthash Eintrag.

Du musst in einer Schleife erst charthash bilden und dann in einer weiteren Schleife diesen hash an eCharts_data übergeben.

[andies]

Ok, danke, dann versuche ich das mal. Ich hatte diese Vorgehensweise aus einer Perl-Webseite
https://docstore.mik.ua/orelly/perl2/prog/ch09_03.htm

[yersinia]

Sicher? Deine Lösung sieht eher nach 9.4. Hashes of Hashes aus.

Trotzdem hast du in den Beispielen in den Kapiteln 9.3.2/9.4.2 zwei Schleifen um die Arrays/Hashes zu füllen.

[andies]

Danke, das war in der Tat die falsche Zeile/Seite. Das klappt jetzt:

Code Auswählen Erweitern

     my ($datum, $wert) = split(" ", $l, 2);
    if ($wert) {
  $eCharts_data{$idx}{$datum."Z"} =  $wert;
    }und damit füllt sich %eCharts_data.