in reply to Re^3: A question to iterator in Datetime::Event::Recurrence
in thread A question to iterator in Datetime::Event::Recurrence
Aye-aye, sir! :-)
This one:
Where is my mistake?
Many thanks again - also for answering my previous question!
VE
I had bad luck with an attempt over $set = DateTime::Set->from_recurrence however.#!/usr/bin/perl use strict; use warnings; use DateTime; use DateTime::Format::Strptime; use Datetime::Set; # use Data::Dumper; my $strp = DateTime::Format::Strptime->new( pattern => '%Y-%m-%d %T', ); my $datf = qq{2012-01-01 04:00:00}; my $datt = qq{2012-01-02 23:00:00}; my $start = $strp->parse_datetime($datf); my $end = $strp->parse_datetime($datt); while( $start < $end ){ print "$start\n" if $start->hour > 6 and $start->hour < 23; $start->add( hours => 1 ); }
This one:
produced an infinite loop with the error message "iterator can't find a previous value". I intended to add later$set = DateTime::Set->from_recurrence( after => $start, before => $end, recurrence => sub { return $_[0]->truncate( to => 'day' )->add( hours => 1 ) }, ); my $iter = $set->iterator; while ( my $dt = $iter->next ) { print $dt->ymd; };
my $set2 = $set->grep( sub { return ( $_->hour > 7 or $_->hour < 23); } ); my $iter = $set2->iterator; while ( my $dt = $iter->next ) { print $dt->ymd; };
Where is my mistake?
Many thanks again - also for answering my previous question!
VE
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^5: A question to iterator in Datetime::Event::Recurrence
by fglock (Vicar) on Apr 11, 2012 at 12:22 UTC | |
by vagabonding electron (Curate) on Apr 11, 2012 at 13:02 UTC |
In Section
Seekers of Perl Wisdom