<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:14pt"><div><font size="2">Ola Pessoal...<br>Fiz um script para ler arquivos em formato CSV porem quando faco o FOREACH ele faz a quantidade de variaveis exeistente entre as virgulas<br><br>script:<br><br>opendir (DIR, $caminho) or die "Problemas ao abrir diretorio: $!";<br><br>while (my $file = readdir(DIR))<br>{<br><br> next if $file eq '.' or $file eq '..';<br> <br> chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";<br><br> open(FH, "<$file") or die("Arquivo nao pode ser acessado");<br><br> while ( $linha=<FH> )<br> {<br> <br> @valor=split(/,/,$linha);<br> <br> <br>
<br> foreach $campo (@valor)<br> {<br> <br> chomp(@valor);<br> $var = $valor[0];<br> $var2 = $valor[1];<br> $var3= $valor[2];<br> $var4 = $valor[3];<br> <br> print " VAR: $var\n\n"; <------------ QUANDO MANDO IMPRIMIR isso ele IMPRIME 4 VEZES ou seja a quantidade de variaves entre ,<br> <br> <br>
<br> }<br> }<br> <br>}<br><br><br>Como faco???????? :)<br><br><br>Obrigada Pessoal......<br><br><br>[]ssssss<br></font></div></div><br>__________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/ </body></html>