oi, fê! :)<br>é que eu vi o título dessa thread e não consegui me segurar! hehehe<br><br><div><span class="gmail_quote">On 10/01/2008, <b class="gmail_sendername">Fernando Oliveira</b> <<a href="mailto:fernandocorrea@gmail.com">
fernandocorrea@gmail.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Mila!!! até q enfim apareceu!!!<br><br><div><span class="gmail_quote">
Em 10/01/08, <b class="gmail_sendername">camila m.</b> <<a href="mailto:misskaapow@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">misskaapow@gmail.com</a>> escreveu:</span><div><span class="e" id="q_11764c7a988beecf_1">
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
olá! :)<br>você pode colocar esse "ou" dentro da própria expressão:<br><br>s/n(b|p)/m\1/g;<br>ou ainda<br>s/n([bp])/m\1/g;<br><br>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?!)
<div><span><br><br><div><span class="gmail_quote">On 10/01/2008, <b class="gmail_sendername">snowflakerj</b> <<a href="mailto:snowflakerj@bol.com.br" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
snowflakerj@bol.com.br</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Olá galera!<br>Estou começando com Perl agora...e estou com um problema...creio q seja na minha ER<br>$palavra =~ s/nb/mb/ | /np/mp/ ;<br>Não sei ao certo como colocá-la nem se posso substituir assim como estou tentando...alguém poderia me dar uma visão?
<br>Obrigado!<br><br><br><br><br><br>-----------------------------------------------------------------------<br>#Localizador de erros ortográficos<br>use strict;<br>use warnings;<br>open(ARQUIVO,"+<d:\\perl\\portugues.txt");
<br>my @texto = <ARQUIVO>;<br><br>foreach my $palavra (@texto){<br><br> if($palavra =~ /nb|np/)<br> {<br> print "Esse texto possui erro ortografico, antes de p ou b so eh usado M\n";
<br> print "Deseja corrigir automaticamente?\n";<br> print "(1)SIM \n(2)NAO\n";<br><br> my $decisao = <STDIN>;<br> chomp($decisao);<br>
<br><br><br> if ($decisao eq "1"){<br><br> #$palavra =~ s/nb/mb/ | /np/mp/ ;<br><br><br><br><br><br> }<br> if($decisao eq "2"){
<br>
print "ok abortando...\n"<br> }<br><br><br><br> }<br><br>}<br><br><br>close(ARQUIVO);<br><br><br><br>------------------------------------------------------------------
<br><br>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/mailman/listinfo/rio-pm
</a><br></blockquote></div><br><br clear="all"><br></span></div>-- <br><span>camila m.
</span><br>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></span></div></div><span class="sg"><br><br clear="all"><br>-- <br>[]'s Fernando
</span><br>_______________________________________________<br>Rio-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>camila m.