尝试使用日期时间.怎么了? [英] Trying to use DateTime. What's wrong?
本文介绍了尝试使用日期时间.怎么了?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我试图让 DateTime
以 %d/%m-%Y'
格式输出今天的日期,但我得到 undef
.
I am trying to get DateTime
to out todays date in %d/%m-%Y'
format, but I get undef
.
我做错了什么?
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use DateTime ();
use DateTime::Format::Strptime;
my $now = DateTime->now;
my $p = DateTime::Format::Strptime->new(
pattern => '%d/%m-%Y',
time_zone => 'UTC',
);
my $dt = $p->parse_datetime($now);
print Dumper $dt;
推荐答案
可以简单写成:
#!/usr/bin/env perl
use strict;
use warnings;
use DateTime ();
my $now = DateTime->now( 'time_zone' => 'UTC' );
print $now->strftime('%d/%m-%Y');
这篇关于尝试使用日期时间.怎么了?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文