[FUGSPBR] [OFF-TOPIC] Split em perl

[Andrei de Oliveira Mosman]

Faz muito tempo que eu não mecho com perl, mas tenta isso:

open( ARQUIVO, "arq.txt" ) || die "KCT !!!";

$x=0
while( $abacate = <ARQUIVO> ) {
   # É chop ou chomp ???
   chop($abacate);
   @separados = split( /\|\-\|/, $abacate,2);
   @orig[$x] = @separados[0];
   @troca[$x++] = @separados[1];
}

close(ARQUIVO);

----- Original Message -----
From: "saijo" <marcelo.fujiwara em terra.com.br>
To: "linux-br" <linux-br em bazar.conectiva.com.br>
Cc: "fugspbr" <fugspbr em fugspbr.org>; "linuxall" <linuxall em yahoogroups.com>
Sent: Friday, October 25, 2002 4:29 PM
Subject: [FUGSPBR] [OFF-TOPIC] Split em perl


Salve galera!
Bom os meu problema e´ o seguinte:
Tenho um arquivo chamado "strings.txt" que possue a seguinte
estrutura:
----------------------------------
original1|-|troca1
original2|-|troca2
....
originalN|-|trocaN

-----------------------------------

Ou seja possue um estrutura de palavras "originais" e "trocas"
separadas
por "|-|"

No meu script perl preciso abrir este arquivo e separar os "original"
num array e o "troca" em outro array.

Tem como fazer isso???

Grato!!!!


Marcelo Fujiwara - marcelo.fujiwara em terra.com.br
http://linuxserver.linuxsecurity.com.br

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


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