Ola Nelson... aos poucos vamos evoluindo :) com a ajuda de vcs eh claro!!<br>Vou tentar implementar e posto o resultado..<br><br>Abraços..<br><br>Patty<br><br><br><b><i>Nelson Ferraz &lt;nferraz@gmail.com&gt;</i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Luis Motta Campos wrote:<br>&gt;    Parabéns pela quantidade excepcional de detalhes, Patty.<br>&gt;    Você está ficando boa em fazer perguntas.<br><br>Eu ia fazer o mesmo elogio: a Patty disse o que precisava fazer, mostrou<br>os dados de entrada, e o que esperava na saída.<br><br>Um exemplo de pergunta bem feita!!! :D<br><br>Quanto à parte de agrupar dados... aqui vai uma sugestão, incompleta,<br>mas que te colocará no caminho:<br><br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br><br>my %file;<br>while ( my $linha = &lt;&gt; ) {<br>    chomp $linha;<br>    next if !$linha;<br><br>    # extrai data...<br>    my ( $data ) = $linha
 =~ /^(\d+)/; # ex: 20070512<br><br>    # ...e guarda a linha completa em $file{$data}<br>    push @{$file{$data}}, $linha;<br>}<br><br># mostra o resultado<br>use Data::Dumper;<br>print Dumper \%file;<br><br># TO-DO: iterar sobre todas as chaves do hash<br># e gerar os arquivos necessários.<br><br>__END__<br><br>Atenção: esta solução não vai funcionar se você tiver uma quantidade<br>muito grande de dados, pois todas as linhas são colocadas na memória.<br>Neste caso, seria mais sábio colocar as informações diretamente nos<br>arquivos no lugar do push @{...}, $linha.<br><br>[]s<br><br>Nelson<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></blockquote><br><p>&#32;__________________________________________________<br>Fale com seus amigos  de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/