Array als Keys im Hash nutzen (Allgemeines zu Perl)

[thread]20587[/thread]

Array als Keys im Hash nutzen

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+9 replies
Hagen

2019-02-13 10:34
User since
2007-09-06
233 Artikel
BenutzerIn
Hallo,

irgendwie komme ich gerade auf keine Lösung und meine Recherche im www war bisher erfolglos ... vermutlich ist die Lösung mal wieder ganz einfach :-)

Ich möchte die Werte eines Array als Keys in einem Hash benutzen.
Code (perl): (dl )

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

#!/usr/bin/perl use strict; use Data::Dumper; my @keys = ('level1_1', 'level2_1', 'level3_1'); my %hash = (); $hash{data}{@keys} = 'test'; print "Dumper: '".Dumper(\%hash)."'<br>\n";
So funktioniert das natürlich nicht, mir fällt aber gerade nichts sinnvolles mehr ein. Ziel wäre
Code (perl): (dl )

$hash{data}{level1_1}{level2_1}{level3_1} = 'test'
Die Länge des Key-Array ist vorher nicht bekannt; evtl. ist der Hash schon (teilweise) definiert
Code (perl): (dl )

$hash{data}{level1_2} = 'test alt'
das sollte natürlich nicht überschrieben werden.

Letztendlich soll das eine Funktion werden, die eine Hash-Struktur beschreibt bzw ergänzt und eine zweite, die das ausliest.

Einfacher wäre es natürlich einen Key zu erzeugen
Code (perl): (dl )

$hash{data}{join('#', @keys)} = 'test';
das passt aber leider nicht zur der Verarbeitung in anderen Bereichen.
Gruß
Hagen
- +2 replies
- Gast linuxer_offline
  
  2019-02-13 10:49
  
  ich sehe da im Moment mir die Variante mit einer for-Schleife über das Array zu iterieren und die Kette der Hash-Keys sukzessive aufzubauen.
  Last edited: 2019-02-13 11:05:16 +0100 (CET)
  - Linuxer
    
    2019-02-13 11:07
    
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    Autokorrekturfehler; es sollte heissen:
    
    ich sehe da im Moment nur die Variante mit einer for-Schleife über das Array zu iterieren und die Kette der Hash-Keys sukzessive aufzubauen.
    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!
- +4 replies
- rosti
  
  2019-02-13 10:52
  User since
  2011-03-19
  3751 Artikel
  BenutzerIn
  Hash Slice:
  
  Code (perl): (dl )
  
  1 2 3
  
  my @fields = qw(title descr short); my %h = (); @h{ @fields } = @fields;
  
  MfG
  https://www.rolfrost.de/
  
  Forum zu Fragen unserer Zeit
  - +3 replies
  - Hagen
    
    2019-02-13 11:13
    
    User since
    2007-09-06
    233 Artikel
    BenutzerIn
    
    Kannst/würdest du mir die Idee erklären?!
    
    a) was macht das @h?,
    
    b) bei mir wird das nur ein einfacher Hash, d.h. nicht mit mehreren Ebenen.
    Gruß
    Hagen
    - Linuxer
      
      2019-02-13 11:15
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      zu b) Das ist auch genau das, was der vorgeschlagene Ansatz macht. Die Array Elemente werden parallel in den Hash eingetragen.
      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!
    - rosti
      
      2019-02-13 11:36
      
      User since
      2011-03-19
      3751 Artikel
      BenutzerIn
      
      Der Slice funktioniert ja auch nur auf einer Ebene. Du übergibtst praktisch nicht nur einen Schlüssel sondern ein Array mit Schlüsseln. So liefert ein Hash Slice auch nicht nur einen Wert sonderen ein Array mit den Werten.
      
      Und umgekehrt bei der Wertezuweisung.
      
      MfG
      Last edited: 2019-02-13 11:39:24 +0100 (CET)
      https://www.rolfrost.de/
      
      Forum zu Fragen unserer Zeit
- +2 replies
- Muffi
  
  2019-02-13 10:57
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Sowas vielleicht
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  my @keys = ('level1_1', 'level2_1', 'level3_1'); my %hash = (); $hash{data} = {}; my $hashref = $hash{data}; for my $i (0..$#keys) { $hashref->{$keys[$i]} = ($i == $#keys ? 'test' : {}); $hashref = $hashref->{$keys[$i]}; } print "Dumper: '".Dumper(\%hash)."'<br>\n";
  
  Last edited: 2019-02-13 10:59:05 +0100 (CET)
  1 + 1 = 10
  - Hagen
    
    2019-02-13 11:15
    
    User since
    2007-09-06
    233 Artikel
    BenutzerIn
    
    Prima, genau das was ich gesucht habe, danke!
    Gruß
    Hagen

View all threads created 2019-02-13 10:34.