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> &lt;<a href="mailto:fernandocorrea@gmail.com">
fernandocorrea@gmail.com</a>&gt; 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> &lt;<a href="mailto:misskaapow@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">misskaapow@gmail.com</a>&gt; 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 &quot;ou&quot; 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 &quot;n&quot; seguidas por &quot;b&quot; ou &quot;p&quot;, e substitui-las por &quot;m&quot; 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> &lt;<a href="mailto:snowflakerj@bol.com.br" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">

snowflakerj@bol.com.br</a>&gt; 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,&quot;+&lt;d:\\perl\\portugues.txt&quot;);
<br>my @texto = &lt;ARQUIVO&gt;;<br><br>foreach my $palavra (@texto){<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if($palavra =~ /nb|np/)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print &quot;Esse texto possui erro ortografico, antes de p ou b so eh usado M\n&quot;;
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print &quot;Deseja corrigir automaticamente?\n&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print &quot;(1)SIM \n(2)NAO\n&quot;;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $decisao = &lt;STDIN&gt;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chomp($decisao);<br>


<br><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;($decisao eq &quot;1&quot;){<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#$palavra =~ s/nb/mb/ | /np/mp/ ;<br><br><br><br><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if($decisao eq &quot;2&quot;){
<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print &quot;ok abortando...\n&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br><br><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<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>[]&#39;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.