如何将日期格式化为"2018-10-29 11:49:33“

Question

我必须将GMT日期转换为区域特定日期，格式为“YYYY DD H:M:S”。开发的代码是:-

use Time::Local;

($year,$mon,$day) = split /\-/, $ARGV[0];
($hrs,$min,$sec ) = split /:/, $ARGV[1];
$time = timegm( $sec, $min, $hrs, $day, $mon-1, $year-1900);
print scalar localtime($time), "\n";

但当我运行它时:-

$ perl testDateGMTToLocal.pl 2018-10-29 11:49:33

它给出在本地时区转换的o/p：-

Mon Oct 29 07:49:33 2018

但我想要以下格式的这个o/p

29-OCT-18 07:49:33

提前谢谢。

Answer 1

您可以使用

use POSIX qw( strftime );

print(strftime("%d-%b-%y %H:%M:%S", localtime($time)), "\n");