[SP-pm] Duvida no uso de substituicões

Stanislaw Pusep creaktive at gmail.com
Thu Oct 21 07:18:24 PDT 2010


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:

$line = <STDIN>;
chomp $line;

ABS()



2010/10/21 Jonhnes Lopes <jonhnes em gmail.com>

> Pessoal venho novamente aqui no grupo pedir ajuda. Mas dessa vez em
> substituições de strings.Segue o codigo abaixo:
>
> elsif($opcaoET == 3){
>         backO3:
>         $i=0;
>         print "Escolha o texto a ser modificado:\n";
>         while($dados[$i] ne ""){
>             print "$i - $dados[$i]";
>             $i++;
>         }
>         $opcaoAux = <STDIN>;
>         if($opcaoAux >= $i){
>             print "Opcao invalida!\n";
>             goto backO3;
>         }
>         print "Opcao $opcaoAux selecionada\n";
>         backO3u:
>         print "Digite a palavra a ser modificada: ";
>         $aux = <STDIN>;
>         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 #################
>             print "Palavra encontrada!\n";
>         }
>         else{
>             print "Palavra nao encontrada!\n";
>             goto back03u;
>             }
>         print "Digite a nova palavra: ";
>         $aux1 = <STDIN>;
>         $dados[$opcaoAux] =~ s /$aux/\$aux1\;/g;  ################### Aqui
> novamente, eu não consigo substituir a 1ª palavra digitada pela 2ª palavra
> digitada
>     }
>
> Já fico grato pela atenção.
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
-------------- Pr�xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20101021/fe0a2669/attachment.html>


More information about the SaoPaulo-pm mailing list