On 1/20/06, Adriano Allora <[EMAIL PROTECTED]> wrote: > my $form1 = qw(ara\w+); > my $pos1 = qw([A-Z]+); > my $lemma1 = qw(?!arabo); > my $pattern = "^(?:$form1)[^A-Z]*($pos1)[^A-Z]*($lemma1)\n";
You probably don't have the pattern you think you have. Have you tried printing $pattern to see what it contains? In general, it's difficult to assemble a pattern from strings when metacharacters may be involved. But it helps to use qr// instead of qw//, since the former has the same "metacharacter sense" as normal Perl patterns. See the documentation of qr// in the perlop manpage. Does that get you closer to a solution? Good luck with it! --Tom Phoenix Stonehenge Perl Training -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
