in reply to Looping through hash of hashes

for my $file (sort keys %file_attachments) {
      print "$file, price=$file_attachments{$file}{price}, desc=$file_
+attachments{$file}{desc} ";
}

[download]

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. -- Brian W. Kernighan

Replies are listed 'Best First'.
Re^2: Looping through hash of hashes
by minixman (Beadle) on Nov 26, 2005 at 12:23 UTC
    What if you did not know the names of the keys under the parent like the following. This was extracted from data dumper. 
    $VAR1 = '4';
$VAR2 = {
          '' => '',
          '35' => 'D',
          '11' => '3104052',
          '63' => '0',
          '167' => 'FUT',
          '200' => '200512',
          '1' => '2',
          '44' => '112.55',
          '55' => 'XEURFGBM0F2005Z',
          '50' => 'portwaretrader1',
          '40' => '2',
          '57' => 'RISKGATEWAY',
          '15' => 'USD',
          '38' => '1',
          '52' => '20051118-07:31:46',
          '59' => '0',
          '60' => '20051118-07:31:40',
          '34' => '37',
          '56' => 'EXLINK_CAMPBELL',
          '49' => 'CAMPBELL_EXLINK',
          '10' => '170',
          '54' => '1'
        };

    [download]
    So the parent keys are just numbers like 1.2.3.4.4.5.5 and i have a counter which holds how many keys are in the %messagebin hash, so what i want to be able to do is sort and process each key under the parent with the value.
    Something like 
        for my $file (sort keys %messagebin) {
      #enter into key
      $messagebin{$file}  then 
        foreach my $key in the above print out $key = $value
    }

    [download]
    Sorry does not make much sense.
[reply]
[d/l]
[select]
      What if you did not know the names of the keys

      Then use the keys builtin to find them out. Something like this: 

      for my $file (sort keys %messagebin) {
    print "File $file:\n";
    # $messagebin{$file} is a hashref, so:
    my @subkeys = sort keys %{$messagebin{$file}};
        foreach my $subkey (@subkeys) {
           print "\t$subkey = $messagebin{$file}{$subkey}\n";
        }
}

      [download]
      "In adjectives, with the addition of inflectional endings, a changeable long vowel (Qamets or Tsere) in an open, propretonic syllable will reduce to Vocal Shewa. This type of change occurs when the open, pretonic syllable of the masculine singular adjective becomes propretonic with the addition of inflectional endings."  — Pratico & Van Pelt, BBHG, p68
[reply]
[d/l]

In Section Seekers of Perl Wisdom