[PortoAlegre-pm] Res: Duvida Split

[Patty Silva]

Pessoal eu retirei o FOREACH e funcionou... :P



----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>; Lista-PortoAlegre <portoalegre-pm em pm.org>
Enviadas: Terça-feira, 23 de Janeiro de 2007 17:16:15
Assunto: [PortoAlegre-pm] Duvida Split

Ola Pessoal...
Fiz um script para ler arquivos em formato CSV porem quando faco o FOREACH ele faz a quantidade de variaveis exeistente entre as virgulas

script:

opendir (DIR, $caminho) or die "Problemas ao abrir diretorio: $!";

while (my $file = readdir(DIR))
{

    next if $file eq '.' or $file eq '..';
    
    chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";

    open(FH, "<$file") or die("Arquivo nao pode ser acessado");

    while ( $linha=<FH> )
    {
    
        @valor=split(/,/,$linha);
    
         
   
 
         foreach $campo (@valor)
        {
    
            chomp(@valor);
            $var     = $valor[0];
            $var2    = $valor[1];
            $var3= $valor[2];
            $var4   = $valor[3];
       
           print " VAR: $var\n\n";           <------------ QUANDO MANDO IMPRIMIR isso ele IMPRIME 4 VEZES ou seja  a quantidade de variaves entre ,
        
        
       
 
    }
    }
    
}


Como faco???????? :)


Obrigada Pessoal......


[]ssssss



__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ _______________________________________________
PortoAlegre-pm mailing list
PortoAlegre-pm em pm.org
http://mail.pm.org/mailman/listinfo/portoalegre-pm





__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/portoalegre-pm/attachments/20070123/5433c0e8/attachment.html