DateTime::Event::Sunrise DateTime::Event::Sunrise is a Perl DateTime extension for computing the sunrise/sunset on a given day.
Download

DateTime::Event::Sunrise Ranking & Summary

DateTime::Event::Sunrise Tags

Perl module extension Datetime DateTime extension computing the sunrise

DateTime::Event::Sunrise Description

DateTime::Event::Sunrise is a Perl DateTime extension for computing the sunrise/sunset on a given day. DateTime::Event::Sunrise is a Perl DateTime extension for computing the sunrise/sunset on a given day.SYNOPSIS use DateTime; use DateTime::Event::Sunrise; my $dt = DateTime->new( year => 2000, month => 6, day => 20, ); my $sunrise = DateTime::Event::Sunrise ->sunrise ( longitude =>'-118', latitude =>'33', altitude => '-0.833', iteration => '1' ); my $sunset = DateTime::Event::Sunrise ->sunset ( longitude =>'-118', latitude =>'33', altitude => '-0.833', iteration => '1' ); my $tmp_rise = $sunrise->next( $dt ); my $dt2 = DateTime->new( year => 2000, month => 12, day => 31, ); # iterator my $dt_span = DateTime::Span->new( start =>$dt1, end=>$dt2 ); my $set = $sunrise->intersection($dt_span); my $iter = $set->iterator; while ( my $dt = $iter->next ) { print ' ',$dt->datetime; } # is it day or night? my $day_set = DateTime::SpanSet->from_sets( start_set => $sunrise, end_set => $sunset ); print $day_set->contains( $dt ) ? 'day' : 'night';my $dt = DateTime->new( year => 2000, month => 6, day => 20, time_zone => 'America/Los_Angeles', );my $sunrise = DateTime::Event::Sunrise ->new( longitude =>'-118' , latitude => '33', altitude => '-0.833', iteration => '1');my $tmp = $sunrise->sunrise_sunset_span($dt); print "Sunrise is:" , $tmp->start->datetime , "n"; print "Sunset is:" , $tmp->end->datetime;my $dt1 = $sunrise->sunrise_datetime( $dt ); print "Sunrise is:" , $dt1->datetime , "n"; my $dt2 = $sunrise->sunset_datetime( $dt ); print "Sunset is:" , $dt2->datetime , "n"; Requirements: · Perl

DateTime::Event::Sunrise Related Software