Jonhnes, ao pegar dados do <STDIN>, você pega também o "line terminator", que atrapalha as suas operações com strings. Para se livrar dele, faça:<br><br>$line = <STDIN>;<br>chomp $line;<br clear="all">
<br>ABS()<br><br>
<br><br><div class="gmail_quote">2010/10/21 Jonhnes Lopes <span dir="ltr"><<a href="mailto:jonhnes@gmail.com">jonhnes@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Pessoal venho novamente aqui no grupo pedir ajuda. Mas dessa vez em substituições de strings.Segue o codigo abaixo:<br><br>elsif($opcaoET == 3){
<br> backO3:
<br> $i=0;
<br> print "Escolha o texto a ser modificado:\n";
<br> while($dados[$i] ne ""){
<br> print "$i - $dados[$i]";
<br> $i++;
<br> }
<br> $opcaoAux = <STDIN>;
<br> if($opcaoAux >= $i){
<br> print "Opcao invalida!\n";
<br> goto backO3;
<br> }
<br> print "Opcao $opcaoAux selecionada\n";
<br> backO3u:
<br> print "Digite a palavra a ser modificada: ";
<br> $aux = <STDIN>;
<br> if($dados[$opcaoAux] =~ /$aux/){
########## A duvida começa nesse ponto porque não consigo verificar se existi a palavra digita nesse posição do vetor ################# <br> print "Palavra encontrada!\n";
<br> }
<br> else{
<br> print "Palavra nao encontrada!\n";
<br> goto back03u;
<br> }
<br> print "Digite a nova palavra: ";
<br> $aux1 = <STDIN>;
<br> $dados[$opcaoAux] =~ s /$aux/\$aux1\;/g;
################### Aqui novamente, eu não consigo substituir a 1ª palavra digitada pela 2ª palavra digitada<br> }<br><br>Já fico grato pela atenção.<br>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br>