DateTime :: Precise. DateTime :: Precise pode executar operações comuns de tempo e data com operações GPS adicionais.
Baixe Agora

DateTime :: Precise. Classificação e resumo

DateTime :: Precise. Tag

GPS Tempo encontro Operações de tempo Operações de data Operações GPS.

DateTime :: Precise. Descrição

DateTime :: Precise pode executar operações comuns de tempo e data com operações GPS adicionais. DateTime :: Precise pode executar operações comuns de tempo e data com operações GPS adicionais.Synopsis Use DateTime :: Precise; Use DateTime :: Precise QW (: Timevars); # Construtores e formas de definir o tempo. $ T1 = DateTime :: Precise-> Novo; $ T2 = DateTime :: Precise-> Novo ('1998. 4. 312: 13: 44.054'); $ T3 = DateTime :: Precise-> Novo (Tempo () - 100.23456); $ T4 = DateTime :: Precise-> Novo ('1998.04.24'); $ t1-> set_localtime_from_epoch_time; $ t1-> set_gmtime_from_epoch_time (tempo + 120.987); $ t1-> set_from_datetime ('1998.03.2316: 58: 14.65'); $ t1-> set_time ('YDHMS', 1998, 177, 9, 15, 26.5); # Este é o mesmo que $ D3-> set_from_datetime (...) $ T3-> dscanf ("% ^ y.% m.% d% h:% m:% s", "1998.03.2520:25: 23 "); se ($ msg = $ d1-> dscanf ("% ~ m", $ Entrada)) {Imprimir "Erro: $ msgn"; Imprimir "deve entrar em um mês de três letras ABBREV.N"; } # Obtenha diferentes partes do tempo. $ ano = $ t3-> ano; $ mês = $ t3-> mês; $ Day = $ T3-> dia; $ HORAS = $ T3-> horas; $ minutos = $ t3-> minutos; $ segundos = $ t3-> segundos; ($ ano, $ Day_OF_Year) = $ T3-> get_time ('yj'); # Imprime tempos e datas. Imprimir $ t2-> ascensão; Imprimir $ t2-> strftime ('% t% c% n'); Imprimir $ T2-> dprintf ("% ^ y.% m.% d% h:% m:% s"); # DateTime Imprimir $ t2-> dprintf ("% ~ W% ~ M% -D% H:% m:% s cst% ^ y"); # ctime # cópia tempos. minha cópia $ T4 = $ T2->; # Defina um objeto horário para o mesmo tempo que outro: defina $ T3 igual a $ T2. $ T3-> clone ($ T2); # Encontre a diferença entre duas vezes. $ secs_from_midnight = $ t4 - $ t1; $ secs_from_midnight = $ t4-> diff ($ t1); # Adicionar segundos, dias, meses, etc para o tempo. $ T1 = $ T4 + 3600; # $ t1 é agora uma hora após a meia-noite $ t1-> inc_month (2); # Adicione dois meses a $ T1 $ t1-> floor_month; # defina $ T1 para o primeiro do mês $ T1 - = 0,25; # SubtRIt 1/4 de um segundo a partir de $ T1 # pode comparar e classificar dateetime :: Precise. Imprimir "É tarde !!!" se ($ T1> $ T4); @sorted = Classificar @Birthdays; # comparações normais funcionam bem # Obtenha as semanas de GPS, segundos e dias. $ gps_week = $ t1-> gps_week; $ gps_seconds = $ t1-> gps_seconds; $ gps_day = $ t1-> gps_day; ($ gps_week, $ gps_seconds, $ gps_day) = $ t1-> gps_week_seconds_day; requisitos: · Perl

DateTime :: Precise. Software Relacionado