[Cascavel-pm] Programa gerar arquivo

[Patty Silva]

Ola Nelson... aos poucos vamos evoluindo :) com a ajuda de vcs eh claro!!
Vou tentar implementar e posto o resultado..

Abraços..

Patty


Nelson Ferraz <nferraz em gmail.com> escreveu: Luis Motta Campos wrote:
>    Parabéns pela quantidade excepcional de detalhes, Patty.
>    Você está ficando boa em fazer perguntas.

Eu ia fazer o mesmo elogio: a Patty disse o que precisava fazer, mostrou
os dados de entrada, e o que esperava na saída.

Um exemplo de pergunta bem feita!!! :D

Quanto à parte de agrupar dados... aqui vai uma sugestão, incompleta,
mas que te colocará no caminho:

#!/usr/bin/perl

use strict;
use warnings;

my %file;
while ( my $linha = <> ) {
    chomp $linha;
    next if !$linha;

    # extrai data...
    my ( $data ) = $linha =~ /^(\d+)/; # ex: 20070512

    # ...e guarda a linha completa em $file{$data}
    push @{$file{$data}}, $linha;
}

# mostra o resultado
use Data::Dumper;
print Dumper \%file;

# TO-DO: iterar sobre todas as chaves do hash
# e gerar os arquivos necessários.

__END__

Atenção: esta solução não vai funcionar se você tiver uma quantidade
muito grande de dados, pois todas as linhas são colocadas na memória.
Neste caso, seria mais sábio colocar as informações diretamente nos
arquivos no lugar do push @{...}, $linha.

[]s

Nelson
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070208/1185923f/attachment.html