[Cascavel-pm] Duvida Split

[Joenio Marques]

Remova o laço foreach e deixa apenas

>             $var     = $valor[0];
>             $var2    = $valor[1];
>             $var3= $valor[2];
>             $var4   = $valor[3];

E depois:

            print " VAR: $var, $var2, $var3, $var4\n\n";

Att,

Em 23/01/07, Patty Silva<ptfzs em yahoo.com.br> 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???????? :)
>
>

-- 
Joenio Marques
- Salvador Perl Mongers