[PortoAlegre-pm] Duvida Split

[Patty Silva]

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/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/portoalegre-pm/attachments/20070123/902a3818/attachment.html