[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