Как я могу получить UTC эквиваленты Today_and_Now () и Today () в Perl?

Question

Как я могу получить UTC-эквиваленты результатов вызовов Today_and_Now () и Today ()?Могу ли я перевести их обратно в местное время?

Answer 1

Если вы используете Today_and_Now (), я предполагаю, что вы используете Date :: Calc . Итак, если вы прочитаете документы, вы обнаружите, что вы можете передать параметр обоим из них, который указывает, что gmtime () следует использовать в качестве входных данных, а не localtime (). Просто передайте любое истинное значение этим функциям.

   my ($year,$month,$day) = Today(1);
   my ($year,$month, $day, $hours, $mins, $secs) = Today_and_Now(1);

Answer 2

Я превращаюсь в фаната DateTime каждый раз, когда использую его.

my $local_tz = DateTime::TimeZone->new( name=> 'local' );
my $now = DateTime->now( time_zone => $local_tz );

$now->set_time_zone('UTC');
say $now->hour();  ### UTC

$now->set_time_zone($local_tz);
say $now->hour();  ### Back to local time

Answer 3

Посмотрите на " Использование программного времени с Perl ". Это объяснит вам краткое изложение советов по использованию функций времени в Perl.

Кроме этого, вы также можете взглянуть на некоторые модули Perl, т.е. Time :: UTC :: Now и DateTime :: TimeZone