Perl – 如何转换日期？

发布时间：2020-12-16 06:20:37 所属栏目：大数据来源：网络整理

导读：如何转换日期格式YYYY-MM-DDTHH：MM：SSZ到YYYY-MM-DD HH：MM 8小时？例如： Input: 2011-07-07T18:05:45ZOutput: 2011-07-08 02:05 解决方法让我们从Rahul的片段开始,添加日期数学和输出格式…… use DateTime; use DateTime::Format::ISO8601;use DateTi

如何转换日期格式YYYY-MM-DDTHH：MM：SSZ到YYYY-MM-DD HH：MM 8小时？

例如：

Input: 2011-07-07T18:05:45Z

Output: 2011-07-08 02:05

解决方法

让我们从Rahul的片段开始,添加日期数学和输出格式……

use DateTime; 
use DateTime::Format::ISO8601;

use DateTime::Format::Strptime;

my $string = '2011-07-07T18:05:45Z';
my $dt = DateTime::Format::ISO8601->parse_datetime( $string ); 
die "Impossible time" unless $dt;

my $formatter = new DateTime::Format::Strptime(pattern => '%Y-%m-%d %T');
$dt->add( hours => 8 )->set_formatter($formatter);
print "$dtn";

我添加了DateTime :: Format :: Strptime的使用,以指定所需的输出格式.

然后我又增加了三行：

>首先,我创建一个格式化程序,并将其输入我想要的输出模式.>接下来,我将8小时添加到原始日期,然后分配输出通过将set_formatter()调用链接到add()调用来格式化.>然后我打印出来.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!