Compare %hash to @array

[uniopp]

Could someone please show me how to compare the keys of a %hash to each element of an @array and stop once a match is found then check the next key.
Thank you.
Simon.

 

[tsdragon]

I think this will do what you want:

foreach $key (keys %hash) {
   foreach $x (0..$#array) {
      if ( $key eq $array[$x] ) {
         print "Key $key found in array at $x\n";
         last;
      }
   }
}

Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.