[Rio-pm] quote regular expression

Tiago Peczenyj tiago.peczenyj em gmail.com
Quinta Março 25 08:18:56 PDT 2010


Ola

Estou com uma duvida no quote regular expression qr

vejam este exemplo

my $dryrun = (grep qr/^-{1,2}dry/, @ARGV) ? 1 : 0;
@ARGV = grep !/^-{1,2}dry/, @ARGV;

print "ok $dryrun\n";

foreach my $a (@ARGV){ print "> $a\n"; }

$ perl a.pl -dry 1 2 3
ok 1
> 1
> 2
> 3

neste exemplo eu filtro a opção -dry dos argumentos (ok, não preciso
fazer assim mas.... ) porem se eu faço

@ARGV = grep !qr/^-{1,2}dry/, @ARGV;

o @ARGV fica vazio!  deveria ser equivalente grep !/xxx/ e grep
!qr/xxx/  -> sendo que tentei colocar parentesis em tudo para ver se
era questão de prioridade.

alguem imagina o que houve?

-- 
Tiago B. Peczenyj
Linux User #405772

http://pacman.blog.br


Mais detalhes sobre a lista de discussão Rio-pm