datetime.pl

use DateTime::Format::W3CDTF;
my $ts = "2010-12-23T23:05:24+09:00";
my $date = DateTime::Format::W3CDTF->parse_datetime($ts);
print $date->ymd, "\n";
print $date->hms, "\n";
print $date->epoch, "\n";


#use DateTime::Format::Strptime;
#my $Strp = new (
#	pattern     => '%Y-%m-%dT%T%z',
#	locale      => 'ko_KR',
#	time_zone   => 'Asia/Seoul',
#);
#
##my $dt = $Strp->parse_datetime('23:16:42');
#my $dt = $Strp->parse_datetime('2010-12-23T23:05:24+0900');
#print $dt->ymd, "\n";
#print $dt->hms, "\n";