Comment puis-je convertir aaaa-mm-jj hh: mm: ss en UTC en Perl?

Question

convertir le format datetime aaaa-mm-jj hh: mm: ss (Peut être une chaîne de caractères) en UTC, Vous recherchez dans DateTime mais je ne vois pas comment analyser la chaîne?

MISE À JOUR:

Est-ce fonctionne correctement?

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

Jetez un oeil à cette question SO, How can I validate dates in Perl? pour une réponse.

Il existe également quelques modules auxiliaires DateTime sur CPAN. Par exemple. DateTimeX::Easy qui vous permet de créer des objets DateTime comme ceci:

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'); 

Utilisez le module DateTime::Format::ISO8601 pour analyser ce format et vous redonner un objet DateTime.

Answer 3

Vous avez besoin d'une des méthodes d'analyse dans un module DateTime :: Format :: *.

Votre chaîne ne semble pas tout à fait comme le format ISO8601 (qui est 'aaaa-mm-jjThh: mm: ss'), mais il correspond MySQL « le style de mise en forme s:

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

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

produit:

2010 00 28 00:00:00