[Cascavel-pm] Duvida Split

[Luiz Gonzaga]

Mande um arquivo csv de exemplo.

Luiz.

Em Terça 23 Janeiro 2007 15:16, Patty Silva escreveu:

> 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/

-- 
Luiz G. P. de Almeida
Analista de Sistemas
Laboratório Nacional de Computação Científica / MCT