foreach my $curr_key ( keys %my_hash) { foreach my $test_key ( keys %my_hash) { if ( $curr_key eq $test_key ) { do_something();} else foreach my $elem ( @{$my_hash{$test_key}}){ if ( $elem eq $curr_key ) { do_something();}
Update: You could also use the CPAN module Quantum::Superposition to do your searches through arrays. It lets you express your queries in more math-set-theory ways.
In reply to Re: manipulating a hash of arrays
by jepri
in thread manipulating a hash of arrays
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |