[Rio-pm] Expressoes Regulares

Fernando Oliveira fernandocorrea em gmail.com
Quinta Janeiro 10 09:34:50 PST 2008


vc está fazendo corretamente... qual é a sua duvida?
agora, pq vc não usa uma regex como por exemplo
<code>
s/n([pb])/m$1/g;
</code>

Em 10/01/08, snowflakerj <snowflakerj em bol.com.br> escreveu:
>
> 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
>



-- 
[]'s Fernando
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080110/cf940ca6/attachment.html 


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