[Rio-pm] Expressoes Regulares

camila m. misskaapow em gmail.com
Quinta Janeiro 10 09:42:41 PST 2008


oi, fê! :)
é que eu vi o título dessa thread e não consegui me segurar! hehehe

On 10/01/2008, Fernando Oliveira <fernandocorrea em gmail.com> wrote:
>
> Mila!!! até q enfim apareceu!!!
>
> Em 10/01/08, camila m. <misskaapow em gmail.com> escreveu:
> >
> > 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.
> > _______________________________________________
> > Rio-pm mailing list
> > Rio-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/rio-pm
> >
>
>
>
> --
> []'s Fernando
> _______________________________________________
> 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/eb15ff4c/attachment.html 


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