vc está fazendo corretamente... qual é a sua duvida?<br>agora, pq vc não usa uma regex como por exemplo<br><code><br>s/n([pb])/m$1/g;<br></code><br><br><div><span class="gmail_quote">Em 10/01/08, <b class="gmail_sendername">
snowflakerj</b> <<a href="mailto:snowflakerj@bol.com.br">snowflakerj@bol.com.br</a>> escreveu:</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">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm
</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando