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);
foreach my $splt(@strng)
{
($vetorA[0], $vetorB[0]) = split(/\|\-\|/, $_);
($vetorA[1], $vetorB[1]) = split(/\|\-\|/, $_);
}
So� que nao esta� funcionando legal....
Alguma sugestao?????
Abs
Marcelo
> ---------- Mensagem original -----------
>
> De : "saijo" <[EMAIL PROTECTED]>
> Para : linux-br <[EMAIL PROTECTED]>
> Cc : fugspbr <[EMAIL PROTECTED]>, linuxall <linuxall@yahoogru
pos.com.br>
> Data : Fri, 25 Oct 2002 15:29:11 -0300
> Assunto : [linuxall] [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
>
>
> [www.linuxall.org] Dicas, Tutorias, e muito mais...
> [www.linuxmall.com.br] Cds, Camisetas, livros...
> [www.impacta.com.br] Cursos de Linux � na Impacta.
>
> Para visualizar as mensagens com o seu browser, visite: http://br.gr
oups.yahoo.com/group/linuxall
> Para escrever para a lista, envie a mensagem para:linuxall@yahoogrup
os.com.br
> Para sair da lista, envie um email em branco para: linuxall-
[EMAIL PROTECTED]
> Para contactar o administrador da lista: linuxall-
[EMAIL PROTECTED]
>
> Seu uso do Yahoo! Grupos � sujeito �s regras descritas em: http://br
.yahoo.com/info/utos.html
>
>
>
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: VirusScan / Atualizado em 23/10/2002 / Vers�o: 1.3.13
> Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/
>
>
>
Marcelo Fujiwara - [EMAIL PROTECTED]
Fone: (19) 9171-9851
http://linuxserver.linuxsecurity.com.br
[www.linuxall.org] Dicas, Tutorias, e muito mais...
[www.linuxmall.com.br] Cds, Camisetas, livros...
[www.impacta.com.br] Cursos de Linux � na Impacta.
Para visualizar as mensagens com o seu browser, visite: http://br.grou
ps.yahoo.com/group/linuxall
Para escrever para a lista, envie a mensagem para:linuxall@yahoogrupos
.com.br
Para sair da lista, envie um email em branco para: linuxall-
[EMAIL PROTECTED]
Para contactar o administrador da lista: linuxall-
[EMAIL PROTECTED]
Seu uso do Yahoo! Grupos � sujeito �s regras descritas em: http://br.y
ahoo.com/info/utos.html
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: VirusScan / Atualizado em 23/10/2002 / Vers�o: 1.3.13
Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/
Marcelo Fujiwara - [EMAIL PROTECTED]
Fone: (19) 9171-9851
http://linuxserver.linuxsecurity.com.br
_______________________________________________________________
Sair da Lista: http://www2.fugspbr.org/mailman/listinfo/fugspbr
Historico: http://www4.fugspbr.org/lista/html/FUG-BR/
