Luis++; # Deixou o Flávio feliz :P<br>Flavio++; # Sempre com um coelho na manga!<br><br>Isso certamente irá me ajudar em um futuro próximo.<br><br><br><div><span class="gmail_quote">On 5/30/07, <b class="gmail_sendername">
Flavio S. Glock</b> <<a href="mailto:fglock@gmail.com">fglock@gmail.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Luis:<br><br>Opa, finalmente vou poder responder uma pergunta usando ICal:<br><br>-----<br><br>use strict;<br>use warnings;<br>use DateTime;<br>use DateTime::Event::ICal;<br><br>my $basedate = DateTime->now( time_zone=>'Europe/Amsterdam' )
<br> ->truncate( to => 'day' );<br>my $interval = 3;<br><br>my $days = DateTime::Event::ICal->recur(<br> dtstart => $basedate,<br> freq => 'daily',<br> count => $interval,<br>
);<br><br>print "@{[ $days->as_list ]}\n";<br><br>----<br><br>- Flavio S. Glock<br><br>Em 30/05/07, Luis Motta Campos<<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>> escreveu:
<br>> Gente, eu estou procurando idéias para resolver um problema<br>> complicado.<br>><br>> Meus dados de entrada são uma data válida, que eu vou chamar<br>> $basedate, e um intervalo de tempo positivo, inteiro, não nulo, que
<br>> eu vou chamar $interval.<br>><br>> O que eu preciso fazer é obter todos os dias entre $basedate e<br>> $basedate+$interval. Alguém tem alguma sugestão melhor do que um loop<br>> para calcular um dia de cada vez?
<br>><br>> O loop:<br>><br>> #!/home/Users/lcampos/run/bin/perl<br>> use strict;<br>> use warnings;<br>> use DateTime;<br>><br>> my $basedate = DateTime->now( time_zone=>'Europe/Amsterdam' )-
<br>> >truncate( to => 'day' );<br>> my $interval = 3;<br>><br>> sub list_days {<br>> my ( $start_date, $interval ) = @_;<br>> my $end_date = $start_date + DateTime::Duration->new( days =>
<br>> $interval );<br>> my $pointer = $start_date->clone;<br>> my @days;<br>> while( $pointer < $end_date ) {<br>> push @days, $pointer->clone;<br>> $pointer->add( days => 1 );
<br>> }<br>> return \@days;<br>> }<br>><br>> my @days = list_days( $basedate, $interval );<br>> __END__<br>><br>> Alguém tem uma idéia melhor?<br>> Putamplexos!<br>> --<br>> Luis Motta Campos (
a.k.a. Monsieur Champs) is a software engineer,<br>> Perl fanatic evangelist, and amateur {cook, photographer}<br>><br>><br>> _______________________________________________<br>> Cascavel-pm mailing list<br>
> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>><br>_______________________________________________
<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div>
<br><br clear="all"><br>-- <br>Gabriel Vieira