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>