尝试使用日期时间.怎么了? [英] 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屋！