Re: [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/