Hash auf Values prüfen wenn vorhanden ausgeben (gelöst) (Allgemeines zu Perl)

[thread]18211[/thread]

Hash auf Values prüfen wenn vorhanden ausgeben [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+9 replies
Neyt

2013-03-18 09:52
User since
2013-03-14
13 Artikel
BenutzerIn
Moin Leute,

wie das Thema schon sagt will ich meinen Hash auf Values prüfen und wenn welche vorhanden sind dann sollen sie mit dem dazugehörigen Key ausgegeben werden.

Hash:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

$VAR1 = { 'Schluessel_eins' => { 'Schluessel_zwei' => { 'Schluessel_drei' => 'Wert_drei', 'Schluessel_vier' => 'Wert_vier', 'Schluessel_fuenf' => 'Wert_fuenf', 'Schluessel_sechs' => 'Wert_sechs', 'Schluessel_sieben' => 'Wert_sieben', } } }
Hier lauf ich durch den Hash durch und gebe alle vorhandenen Schlüssel aus:
Code: (dl )

1 2 3 4 5 6 7 8 9

foreach my $key (keys (% { $hash })) { print "Schluessel: $key\n"; foreach my $key2 (keys (% { $hash->{$key}})) { print "Schluessel: $key2\n"; foreach my $key3 (keys (% { $hash->{$key}->{$key2}})) { print "Schluessel: $key3\n"; } } }
Mache ich das am besten mit if value exists?
Last edited: 2013-03-18 09:59:52 +0100 (CET)
- pq
  
  2013-03-18 10:07
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  ich verstehe die frage nicht. du iterierst doch schon über die keys. wenn ein key vorhanden ist, ist auch ein value vorhanden (welcher aber undef sein kann).
  du gibst die keys aus. was willst du jetzt noch ausgeben/ändern? beschreib mal genauer.
  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
- +6 replies
- Neyt
  
  2013-03-18 10:12
  
  User since
  2013-03-14
  13 Artikel
  BenutzerIn
  
  Ich möchte die Werte rauslesen. Sprich in dem Beispiel für Schlüssel_drei den Wert_drei, für Schlüssel_vier den Wert_vier etc...
  
  Die Ausgabe sollte dann so sein:
  
  Schluessel: Schluessel_eins
  Schluessel: Schluessel_zwei
  Schluessel: Schluessel_drei
  Wert: Wert_drei
  Schluessel: Schluessel_vier
  Wert: Wert_vier
  Schluessel: Schluessel_fuenf
  Wert: Wert_fuenf
  
  Hoffe ich konnts deutlicher erklären
  - +5 replies
  - Muffi
    
    2013-03-18 10:44
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Wie pq schon sagte: JEDER Schlüssel hat IMMER auch einen Wert.
    Schlimmstenfalls ist der undef, aber da ist er immer.
    
    Ansonsten sieht dein dump sehr komisch aus. Ich hab so das Gefühl der ist nicht so aufgebaut wie du das erwartest.
    Kannst du vielleicht mal in Worten beschreiben wie deine Datenstruktur genau ausschaun soll?
    
    [EDIT] Oder willst du ein Datenstrukturkonstrukt rekurviv durchwandern?
    Last edited: 2013-03-18 10:46:41 +0100 (CET)
    1 + 1 = 10
    - +4 replies
    - Neyt
      
      2013-03-18 10:52
      
      User since
      2013-03-14
      13 Artikel
      BenutzerIn
      
      Ja ein bisschen verschoben ist der Dump aber sonst soll er schon so aufgebaut sein. Ich will den Dump einfach durchlaufen und die Keys mit den dazugehörigen Values ausgeben.
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8
      
      Schluessel: Schluessel_eins Schluessel: Schluessel_zwei Schluessel: Schluessel_drei Wert: Wert_drei Schluessel: Schluessel_vier Wert: Wert_vier Schluessel: Schluessel_fuenf Wert: Wert_fuenf
      
      Aber wie gebe ich denn zu jedem Schlüssel dann den Wert aus damit er so angezeigt werden kann?
      - Muffi
        
        2013-03-18 10:58
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Hilft dir dieser Thread vielleicht weiter?
        
        XML::Simple - XML bearbeiten und speichern
        1 + 1 = 10
      - +2 replies
      - pq
        
        2013-03-18 11:06
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wie du auf werte in einem hash zugreifst, ist nicht klar? machst du doch mehrfach in deiner schleife. nur wenn es einfache strings sind, klappts nicht?
        
        ist ganz einfach. statt
        print "Schluessel: $key3\n";
        schreibst du
        print "Schluessel: $key3\nWert: $hash->{ $key }->{ $key2 }->{ $key3 }\n";
        
        damit hast du den wert ausgegeben.
        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
        
        Neyt
        
        2013-03-18 11:18
        
        User since
        2013-03-14
        13 Artikel
        BenutzerIn
        
        Ah ok vielen Dank pq hat mir sehr geholfen!
- GUIfreund
  
  2013-03-18 17:58
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3
  
  foreach my $key3 (keys (% { $hash->{$key}->{$key2}})) { print "Schluessel: $key3\n"; }
  
  ersetzen durch
  
  Code (perl): (dl )
  
  1 2 3
  
  while (my($key3, $wert) = each (% { $hash->{$key}->{$key2}})) { print "Schluessel: $key3\nWert: $wert\n"; }
  
  Gruß
  GUIfreund

View all threads created 2013-03-18 09:52.