Somu schreef:
> Ruud:
>> Somu:
>>> why wont the following work?
>>>
>>> $$^Hq = shift;
>>
>> print length($$^Hq), " ";
>>
>>> $$^Hp = "pass";
>>> if ( $$^Hq =~ m/$$^Hp/i ) { print 'match' }
>>>
>>> But it works on changing the $$^Hq and $$^Hp places..
> $q contains decoded msgs using MIME::Base64, and [$p] is
> any random word from a dictionary of 45000 words.
The wind is always coming from the north here, don't reply against it,
so always south-post. And never quote signatures and other no longer
relevant text. And don't double the $.
What you could do is read in the 45000 words in @p, chomp @p, then
my $match = 0;
for my $p (@p) {
$q =~ /\b\Q$p\E\b/ and ($match = 1) and last;
}
if ($match) {
...
}
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
