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

[Alessandro Nunes]

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/