ok :D<br>uma pergunta :-) no caso, o cabecalho estao assim:<br>ID.Nome,ID.END,ID.CASA (ex)<br><br>eu lendo linha por linha..<br> $linha=<FILE_IN>;<br><br><br> $linha=~ s/^.?N\/A,//; # Elimina N/A<br><br> @fields= split(/,/,$linha); <br><br>Para eliminar tudo que esta antes do . eu fiz:<br> foreach $campo (@fields) <br> {<br> $campo=~ s/\.(\w*)//;<br> push(@variaveis,$1);<br><br> }<br><br>tem como eu eliminar sem usar o foreach :D<br><br>Obrigada<br> <br><br><b><i>Nelson Ferraz <nferraz@gmail.com></i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> > No Caso preciso recuperar a 1 linha que sera as variaveis para <br>> inserir no banco..<br>> Estou fazendo aqui
sem usar o text:CSV.. :D posto quando terminar :D<br>><br><br>Não faça isso: você já identificou o módulo, só precisa usá-lo <br>corretamente.<br><br>Essa estratégia de "modificar o código até que ele funcione" é típica <br>de POG.<br><br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></blockquote><br><p> 
Flickr agora em português. Você clica, todo mundo vê. <a href="http://br.rd.yahoo.com/mail/taglines/flickr/*http://www.flickr.com.br/">Saiba mais</a>.