in reply to Re: Perl hash comparisonin thread Perl hash comparison
#$matches += $key =~ /$1/i while $find =~ /(.)/g;
# or the "rolex" operator!
my $match =()= $key=~/[$find]/ig;
This is a good suggestion; I'll make the change in the script.
Electric eels were invented at the same time as electricity
Before electricity was invented, electric eels had to stun with gas
Results (372 votes). Check out past polls.