Re^5: Ignore Case when comparing Hash Keys


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re^5: Ignore Case when comparing Hash Keys

by roboticus (Chancellor)

on Nov 15, 2010 at 20:09 UTC ( [id://871568]=note: print w/replies, xml )

Need Help??

in reply to Re^4: Ignore Case when comparing Hash Keys
in thread Ignore Case when comparing Hash Keys

avidcoder:

Basically the same way:

%hash1 = ("John", 43, "Paul", 25, "Marie", 22);
%hash2 = ("john", 43, "Paul", 25, "marie", 22); 
while (($KEY_2, $VALUE_2) = each %hash2){
    my @matches = grep { m/$KEY_2/i } keys %hash1;
    if (@matches) {
         print "$KEY_2 : Matched ", join(", ", @matches), "\n";
    }
    else{
         print "$KEY_2 : Did not match\n";
    }
}
[download]

...roboticus