[Cascavel-pm] Probleminha com datas...
Gabriel Vieira
gabriel.vieira em gmail.com
Quarta Maio 30 10:20:57 PDT 2007
Luis++; # Deixou o Flávio feliz :P
Flavio++; # Sempre com um coelho na manga!
Isso certamente irá me ajudar em um futuro próximo.
On 5/30/07, Flavio S. Glock <fglock em gmail.com> wrote:
>
> Luis:
>
> Opa, finalmente vou poder responder uma pergunta usando ICal:
>
> -----
>
> use strict;
> use warnings;
> use DateTime;
> use DateTime::Event::ICal;
>
> my $basedate = DateTime->now( time_zone=>'Europe/Amsterdam' )
> ->truncate( to => 'day' );
> my $interval = 3;
>
> my $days = DateTime::Event::ICal->recur(
> dtstart => $basedate,
> freq => 'daily',
> count => $interval,
> );
>
> print "@{[ $days->as_list ]}\n";
>
> ----
>
> - Flavio S. Glock
>
> Em 30/05/07, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
> > Gente, eu estou procurando idéias para resolver um problema
> > complicado.
> >
> > Meus dados de entrada são uma data válida, que eu vou chamar
> > $basedate, e um intervalo de tempo positivo, inteiro, não nulo, que
> > eu vou chamar $interval.
> >
> > O que eu preciso fazer é obter todos os dias entre $basedate e
> > $basedate+$interval. Alguém tem alguma sugestão melhor do que um loop
> > para calcular um dia de cada vez?
> >
> > O loop:
> >
> > #!/home/Users/lcampos/run/bin/perl
> > use strict;
> > use warnings;
> > use DateTime;
> >
> > my $basedate = DateTime->now( time_zone=>'Europe/Amsterdam' )-
> > >truncate( to => 'day' );
> > my $interval = 3;
> >
> > sub list_days {
> > my ( $start_date, $interval ) = @_;
> > my $end_date = $start_date + DateTime::Duration->new( days =>
> > $interval );
> > my $pointer = $start_date->clone;
> > my @days;
> > while( $pointer < $end_date ) {
> > push @days, $pointer->clone;
> > $pointer->add( days => 1 );
> > }
> > return \@days;
> > }
> >
> > my @days = list_days( $basedate, $interval );
> > __END__
> >
> > Alguém tem uma idéia melhor?
> > Putamplexos!
> > --
> > Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
> > Perl fanatic evangelist, and amateur {cook, photographer}
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
--
Gabriel Vieira
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070530/3e885cab/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm