[Rio-pm] Expressoes Regulares

camila m. misskaapow em gmail.com
Quinta Janeiro 10 09:35:31 PST 2008


olá! :)
você pode colocar esse "ou" dentro da própria expressão:

s/n(b|p)/m\1/g;
ou ainda
s/n([bp])/m\1/g;

assim, você vai procurar por todas as letras "n" seguidas por "b" ou "p", e
substitui-las por "m" e a letra mesma encontrada (já leu sobre $1, $2 etc?!)

On 10/01/2008, snowflakerj <snowflakerj em bol.com.br> wrote:
>
> Olá galera!
> Estou começando com Perl agora...e estou com um problema...creio q seja na
> minha ER
> $palavra =~ s/nb/mb/ | /np/mp/ ;
> Não sei ao certo como colocá-la nem se posso substituir assim como estou
> tentando...alguém poderia me dar uma visão?
> Obrigado!
>
>
>
>
>
> -----------------------------------------------------------------------
> #Localizador de erros ortográficos
> use strict;
> use warnings;
> open(ARQUIVO,"+<d:\\perl\\portugues.txt");
> my @texto = <ARQUIVO>;
>
> foreach my $palavra (@texto){
>
>         if($palavra =~ /nb|np/)
>         {
>                 print "Esse texto possui erro ortografico, antes de p ou b
> so eh usado M\n";
>                 print "Deseja corrigir automaticamente?\n";
>                 print "(1)SIM \n(2)NAO\n";
>
>                 my $decisao = <STDIN>;
>                 chomp($decisao);
>
>
>
>                 if      ($decisao eq "1"){
>
>                         #$palavra =~ s/nb/mb/ | /np/mp/ ;
>
>
>
>
>
>                 }
>                 if($decisao eq "2"){
>                         print "ok abortando...\n"
>                 }
>
>
>
>         }
>
> }
>
>
> close(ARQUIVO);
>
>
>
> ------------------------------------------------------------------
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
camila m.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080110/a23e6180/attachment.html 


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