@H_404_1@
将日期时间格式yyyy-mm-dd hh：mm：ss(可能是一个字符串)转换为UTC,
查看DateTime但我没有看到如何解析字符串？
查看DateTime但我没有看到如何解析字符串？
更新：
这工作正常吗？
require 5.002;
use strict;
use warnings;
use DateTime::Format::DateManip;
my $string = '2010-02-28 00:00:00';
my @dates = (
$string
);
for my $date ( @dates ) {
my $dt = DateTime::Format::DateManip->parse_datetime( $date );
die "Cannot parse date $date,Please use a valid date in this format 'yyyy-mm-dd mm:hh:ss'" unless defined $dt;
print $dt."\n";
$dt->set_time_zone( 'UTC' );
print $dt."Z\n"; # Is this correct???
}
解决方法
看看这个SO问题,How can I validate dates in Perl?一个答案.
CPAN还有一些不错的DateTime辅助模块.例如. DateTimeX::Easy允许您创建DateTime对象,如下所示：
use DateTimeX::Easy; my $a_date = DateTimeX::Easy->new( '11/17/2008 12:01am' ); my $tomorrow = DateTimeX::Easy->new( 'tomorrow' ); my $last_week = DateTimeX::Easy->new( 'last week' );
/ I3az /