[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