Re^4: Nested while each over a hash -> infinite loop

I think I should explain my problem a bit more in detail: I have a hash like

my $test = (
    'a' => {
        'identifiers' => {
                                  'mrt1' => 1,
                                  'mrt2' => 1,
                                  'mrt3' => 1,
         },
    },
    'b' => {
        'identifiers' => {
                                  'mrt2' => 1,
                                  'mrt3' => 1,
                                  'mrt6' => 1,
         },
    },
    'c' => {
        'identifiers' => {
                                  'mrt1' => 1,
                                  'mrt2' => 1,
                                  'mrt3' => 1,
         },
    },
    'd' => {
        'identifiers' => {
                                  'mrt2' => 1,
                                  'mrt3' => 1,
                                  'mrt6' => 1,
         },
    },
    'sum_ab' => {
        'values' => {
                                  'a' => 1,
                                  'b' => 1,
         },
    },
    'sum_cd' => {
        'values' => {
                                  'c' => 1,
                                  'd' => 1,
         },
    },
    'sum_abcd' => {
        'values' => {
                                  'sum_ab' => 1,
                                  'sum_cd' => 1,
         },
    },
);
[download]

In case of mrt1 I do something, because a is matched. Afterwards I need to do something, because sum_ab has a in its 'values'-hash. Afterwards I have to check if some sum includes 'sum_ab' and so on...

That is the reason, why I wanted to use the nested iteration over the same hash. Perhaps I could push to some temporary variable and do the second while after the first one.

Comment on Re^4: Nested while each over a hash -> infinite loop Download Code

Replies are listed 'Best First'.
Re^5: Nested while each over a hash -> infinite loop by davido (Cardinal) on Jun 10, 2011 at 09:15 UTC
So you would benefit here from recursion: `traverse(\%my_hash); sub traverse { my $hash_ref = shift; while ( my( $key, $value ) = each %{ $hash_ref } ) { if( ref $value ) { traverse( $value ); } else { print "$key => $value\n"; } } }` [download] Dave	[reply] [d/l]
Re^6: Nested while each over a hash -> infinite loop by Eythil (Acolyte) on Jun 10, 2011 at 09:22 UTC
Sorry for sending you a message earlier. Actually that should have been a reply to the thread Recursion is indeed the solution to my problem. Thank you very much.	[reply]
Re^5: Nested while each over a hash -> infinite loop by davido (Cardinal) on Jun 10, 2011 at 08:51 UTC
In what way was my sample code inadequate? Dave	[reply]