Ola Pessoal :)<br>Essa solucao funcionou perfeitamente.. <br>Obrigada a todos :)<br><br><b><i>André Garcia Carneiro <andre.garcia.carneir@terra.com.br></i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Patty,<br><br>Segue a minha sugestão...<br><br>use strict;<br>use warnings;<br>use Data::Dumper;<br><br><br>my (@line,@line2);<br># @line conterá as linhas do arquivo de entrada file.csv<br># @line2 conterá as linhas do arquivo de saída file2.csv<br><br># Abrindo o arquivo de entrada file.csv<br># Talvez alguns membros da lista digam que seria usar o open de três parâmetros, mas eu pessoalmente acho que<br>você não terá problemas com o de dois.<br>open FILE,"file.csv" or die "$!"; #arquivo de origem<br><br># Criando o arquivo de saída file2.csv. Cuidado! Nesse caso, toda vez que o programa roda essa linha, um novo<br>arquivo será gerado. Se você quiser manter os dados no mesmo arquivo, deve
substituir > por >><br>open FILE2,">file2.csv" or die "$!"; #arquivo csv filtrado<br><br>while(<FILE>)<br>{<br> @line = split /\,/,$_;<br> if($line[2] eq 'UL') #supondo que o flag nunca muda de posição no arquivo file.csv<br> {<br> push @line2, {DATA => $line[0],NOME => $line[1], FLAG => $line[2], VARIAVEL => $line[3]}; # Só para<br>o caso de você querer utilizar esses dados depois.<br> print FILE2 "$line[0],$line[1],$line[2],$line[3]\n";<br> }<br>}<br><br>close FILE2;<br>close FILE;<br>print Dumper @line; #Veja como fica a estrutura criada em @line2<br>exit;<br>#Fim do script<br><br>Lembrando que existem maneiras muito mais elegantes de se fazer. Você pode, por exemplo, usar Class::CSV. <br><br>Cheers!<br><br>--<br>André Garcia Carneiro<br>Developer(Perl/PHP)<br>Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org<br><br>_______________________________________________<br>Cascavel-pm mailing
list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></FILE></blockquote><br><p> __________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/