Re: [FUGSPBR] Re: [OFF-TOPIC] Split em perl

Fri, 25 Oct 2002 16:09:38 -0700 


saijo wrote:


Bom, melhor eu colocar o que estou fazendo e ver o que esta� errado:

#!/usr/local/bin/perl

        open(STRING, "strings.txt");
        @strng = <STRING>;
        close(STRING);


Voce abriu o arquivo leu apenas UMA linha e depois fechou.


        foreach my $splt(@strng)
        {

                ($vetorA[0], $vetorB[0]) = split(/\|\-\|/, $_);
                ($vetorA[1], $vetorB[1]) = split(/\|\-\|/, $_);

        }
@strng so' possui um elemento.
Provavelmente "$_" nao possui o valor do unico elemento de @strng, a variavel no "split" deveria ser "$splt".

Tenta isto:

#!/usr/local/bin/perl

open(STRING, "strings.txt");

while(<STRING>) {

($org, $trc) = split(/\|\-\|/, $_);
push @original, $org;
push @troca, $trc;
}

close(STRING);



_______________________________________________________________
Sair da Lista: http://www2.fugspbr.org/mailman/listinfo/fugspbr
Historico: http://www4.fugspbr.org/lista/html/FUG-BR/

Responder a