[Cascavel-pm] Duvida Split
Joenio Marques
joenio em gmail.com
Terça Janeiro 23 09:28:18 PST 2007
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
Mais detalhes sobre a lista de discussão Cascavel-pm