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

[saijo]

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" <marcelo.fujiwara em terra.com.br>
> Para    : linux-br <linux-br em bazar.conectiva.com.br>
> Cc      : fugspbr <fugspbr em fugspbr.org>, linuxall <linuxall em 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 - marcelo.fujiwara em terra.com.br
> 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 em yahoogrup
os.com.br
> Para sair da lista, envie um email em branco para: linuxall-
unsubscribe em yahoogrupos.com.br
> Para contactar o administrador da lista: linuxall-
owner em yahoogrupos.com.br 
> 
> 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 - marcelo.fujiwara em terra.com.br
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 em yahoogrupos
.com.br
Para sair da lista, envie um email em branco para: linuxall-
unsubscribe em yahoogrupos.com.br
Para contactar o administrador da lista: linuxall-
owner em yahoogrupos.com.br 

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 - marcelo.fujiwara em terra.com.br
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/