[Cascavel-pm] Expressão Regular Perl
Frederico Recsky
frederico em gmail.com
Quarta Fevereiro 3 11:49:44 PST 2010
Olá,
010/2/3 Roan Brasil Monteiro <roanbrasil em gmail.com>:
> Man como em Perl eu faço uma expressão regular para substituir por exemplo:
> string: xxx0006xxx0006xxxalgumacoisaxxx0006xxx0006xxx...xxx0006
> quero pegar o 0006 segundo e o quarto elemento e substituir. Tem alguma
> ideia?
Uma coisa não muito magica mas que fica facil de entender depois é dar
match em tudo, identificar e montar depois.
use strict;
use warnings;
my $var = "xxx0006xxx0006xxxalgumacoisaxxx0006xxx0006xxx...xxx0006";
print "$var\n";
$var =~ /(\w+0006\w+) # dados aleatorios
(0006) # nao gosto de 0006 pares
(\w+0006\w+) # dados aleatorios
(0006) # nao gosto de 0006 pares
(\w+) # senhas do servidor
(\.+) # pontinhos?
(\w+)/x; #resto
print $1 . "hoor" . $3 . "haar" . $5 . $6 . $7 . "\n";
o gmail zoou toda identação mas os comentarios supostamente tao alinhados :P.
--
____________________________
Frederico Recsky
Linux User: #253572
http://www.fred.eti.br
http://www.perl.org.br
Mais detalhes sobre a lista de discussão Cascavel-pm