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

[Renato Botelho]

#!/usr/local/bin/perl

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

$x = 0;
foreach $line (@strng) {
   chomp($line);
   ($vetorA[$x], $vetorB[$x]) = split(/\|-\|/, $line);
   $x++;
}

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