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" <[EMAIL PROTECTED]>
To: "linux-br" <[EMAIL PROTECTED]>
Cc: "fugspbr" <[EMAIL PROTECTED]>; "linuxall" <[EMAIL PROTECTED]>
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 - [EMAIL PROTECTED]
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/
