Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^5: Check if Date interval contains Hour X

by alexm (Chaplain)
on Jul 23, 2009 at 21:33 UTC ( #782792=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Check if Date interval contains Hour X
in thread Check if Date interval contains Hour X

You're right again, I just realized a bit later so I've been playing with intersects:

sub hour_in_range { my ($dt_s, $dt_e, @hours) = @_; my $dt_span = DateTime::Span->from_datetimes( start => $dt_s, end => $dt_e ); for my $hour (@hours) { my $dt = $dt_s->clone() ->truncate( to => 'day' ) ->add( hours => $hour ); $dt->add( days => 1 ) if $dt < $dt_s; my $hour_span = DateTime::Span->from_datetimes( start => $dt, end => $dt ); return 1 if $dt_span->intersects($hour_span); } return 0; }

It's not as simple and efficient as your approach, but it shows how to use span intersection.

OTOH, I misunderstood the OP and was thinking that @hours = (1,11) was an interval (1am to 11am), not a list of hours to match.


Comment on Re^5: Check if Date interval contains Hour X
Select or Download Code
Re^6: Check if Date interval contains Hour X
by ikegami (Pope) on Jul 23, 2009 at 21:44 UTC
    my $hour_span = DateTime::Span->from_datetimes( start => $dt, end => $dt );

    should be

    my $hour_span = DateTime::Span->from_datetimes( start => $dt, before => $dt->clone()->add( hours => 1 ), );

    or the more readable

    my $hour_span = DateTime::Span->new( start => $dt, hours => 1, );

    Update: No, neither fix help. They were suppose to make the following match:

    2010-10-10 01:59:59|2010-10-10 01:59:59|blablalblabla

    You need

    sub hour_in_range { my ($dt_s, $dt_e, @hours) = @_; my $dt_span = DateTime::Span->from_datetimes( start => $dt_s, end => $dt_e ); for my $hour (@hours) { my $dt = $dt_s->clone() ->truncate( to => 'day' ) ->add( hours => $hour ); my $dt_tomorrow = $dt->clone()->add( days => 1 ); my $hour_span = DateTime::Span->new( start => $dt, hours => 1 )->union( DateTime::Span->new( start => $dt_tomorrow, hours => 1 )); return 1 if $dt_span->intersects($hour_span); } return 0; }

    And there you go, the four DateTimes per hour I mentioned earlier.

      And there you go, the four DateTimes per hour I mentioned earlier.

      Wow! I'm still a beginner with DateTime modules, and today I learnt a few things. Thanks a lot!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://782792]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2014-12-27 21:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (177 votes), past polls