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.
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (543 votes). Check out past polls.