<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:10pt"><div style="font-family: times new roman,new york,times,serif; font-size: 10pt;">Pessoal eu retirei o FOREACH e funcionou... :P<br><br><br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Patty Silva <ptfzs@yahoo.com.br><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org>; Lista-PortoAlegre <portoalegre-pm@pm.org><br>Enviadas: Terça-feira, 23 de Janeiro de 2007 17:16:15<br>Assunto: [PortoAlegre-pm] Duvida Split<br><br><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><span><a target="_blank" href="http://br.messenger.yahoo.com/">http://br.messenger.yahoo.com/</a> </span><div>_______________________________________________<br>PortoAlegre-pm mailing list<br>PortoAlegre-pm@pm.org<br><a target="_blank" href="http://mail.pm.org/mailman/listinfo/portoalegre-pm">http://mail.pm.org/mailman/listinfo/portoalegre-pm</a></div></div><br></div></div><br>__________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/ </body></html>