| DateTime :: Event :: Sunrise DateTime :: Event :: Sunrise é uma extensão do Datetime Perl para calcular o nascer do sol / pôr do sol em um determinado dia. |
Baixe Agora |
DateTime :: Event :: Sunrise Classificação e resumo
- Licença:
- Perl Artistic License
- Site do editor:
- http://search.cpan.org/~rkhill/Astro-Sunrise-0.91/Sunrise.pm
DateTime :: Event :: Sunrise Tag
DateTime :: Event :: Sunrise Descrição
DateTime :: Event :: Sunrise é uma extensão do Datetime Perl para calcular o nascer do sol / pôr do sol em um determinado dia. DateTime :: Event :: Sunrise é uma extensão do Datetime Perl para computação do nascer do sol / pôr do sol em um determinado dia.Synopsis Use DateTime; Use DateTime :: Event :: Sunrise; Meu $ DT = DateTime-> Novo (ano => 2000, mês => 6, dia => 20,); Meus $ Sunrise = DateTime :: Evento :: Sunrise -> Sunrise (Longitude => '- 118', latitude => '33', altitude => '-0.833', iteração => '1'); Meu $ Sunset = DateTime :: Evento :: Sunrise -> pôr do sol (longitude => '- 118', latitude => '33', altitude => '-0.833', iteração => '1'); Meu $ TMP_RISE = $ SUNISE-> NEXT ($ DT); Meu $ DT2 = DateTime-> Novo (ano => 2000, mês => 12, dia => 31,); # Iterator Meu $ DT_SPAN = DateTime :: Span-> Novo (Início => $ DT1, end => $ DT2); Minha $ SET = $ SUNISE-> intersecção ($ DT_SPAN); meu $ iter = $ set-> iterador; Enquanto (meu $ DT = $ iter-> next) {Imprimir '', $ DT-> DateTime; } # é dia ou noite? Meu $ Day_Set = DateTime :: Spanset-> from_sets (start_set => $ Sunrise, end_set => $ pôr do sol); Imprimir $ Day_Set-> Contém ($ DT)? 'Dia': 'Night'; Meu $ DT = DateTime-> Novo (Ano => 2000, Mês => 6, Dia => 20, Time_Zone => 'América / Los_angeles',); Minha $ Sunrise = DateTime :: Event :: Sunrise -> Novo (Longitude => '- 118', latitude => '33', altitude => '-0.833', iteração => '1'); meu $ tmp = $ sunrise-> sunrise_sunset_span ($ dt); Imprimir "Sunrise é:", $ TMP-> Start-> DateTime, "N"; Imprimir "Sunset é:", $ tmp-> end-> datetime; meu $ DT1 = $ Sunrise-> Sunrise_DateTime ($ DT); Imprimir "Sunrise é:", $ DT1-> DateTime, "N"; meu $ DT2 = $ Sunrise-> Sunset_DateTime ($ DT); Imprimir "Sunset é:", $ DT2-> DateTime, "N"; Requisitos: · Perl.
DateTime :: Event :: Sunrise Software Relacionado