[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