如何在Perl中获取UTC等效的Today_and_Now()和Today()？

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);