On Sunday 20 March 2005 18:52, mark McWilliams wrote:
> if($word =~ /^$single_word$/i)
> { print $single_word; do other stuff ...}
> # prints if $word (dictionary) and $single_word
> (document) match not what I want
There are probably better ways, but how about:
my $flag = 0;
if ($word =~ /^$single_word$/i) {
$flag = 1;
}
print "$word not found\n" if (!$flag);-- Robin <[EMAIL PROTECTED]> JabberID: <[EMAIL PROTECTED]> Hostes alienigeni me abduxerunt. Qui annus est? PGP Key 0xA99CEB6D = 5957 6D23 8B16 EFAB FEF8 7175 14D3 6485 A99C EB6D
pgpGOckVczJcV.pgp
Description: PGP signature
