我需要一种简单的方法来使用Perl从SQL格式化日期

Question

我从SQL Server获得以下日期格式：2014-04-14 11：36：34.000

我需要删除时间并将其格式化为：2014年4月14日

实现这一目标的最简单方法是什么？

我假设DateTime :: Format :: Strptime的一些变体。

这就是我想要努力工作......

由于

use DateTime;
use DateTime::Format::Strptime;

my $PictureDate = "2014-04-14 11:36:34.000";
my $dateparse = $parser->parse_datetime($PictureDate);
my $ShortDateTime = $dateparse->strftime("%m/%d/%Y");

print "$ShortDateTime\n";

Answer 1

这里唯一缺少的是$parser变量的初始化。

这应该这样做：

my $parser = DateTime::Format::Strptime->new(
   pattern   => '%Y-%m-%d',
);

Answer 2

use strict;
use warnings;

my $PictureDate = "2014-04-14 11:36:34.000";
$PictureDate =~ /^(\d+)-(\d+)-(\d+)/;
printf("%d\/%d\/%d\n", $2, $3, $1);