How to convert yyyy-mm-dd hh: mm: ss to UTC in Perl?

Question

convert datetime format yyyy-mm-dd hh: mm: ss (maybe a string) in UTC, Looking in DateTime, but I don’t see how to parse a string?

UPDATE:

Does this work correctly?

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???
}

Answer 1

Have a look at this SO question, How can I check dates in Perl? for an answer.

There are also some good DateTimesupport modules on CPAN . E.g. DateTimeX::Easywhich allows you to create DateTime objects like:

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 /

Answer 2

use DateTime::Format::ISO8601;
my $dt = DateTime::Format::ISO8601->parse_datetime('yyyy-mm-ddThh:mm:ss');

DateTime::Format::ISO8601, DateTime.

Answer 3

You need one of the analysis methods in the DateTime :: Format :: * module.

Your line is not exactly like the ISO8601 format (this is "yyyy-mm-ddThh: mm: ss"), but it matches the MySQL formatting style:

use DateTime::Format::MySQL;
my $dt = DateTime::Format::MySQL->parse_datetime('2010-02-28 00:00:00');

print $dt->strftime("%Y %M %d %T");

gives:

2010 00 28 00:00:00