日付文字列の変換

DateTime::Format::Mail

#!/usr/bin/perl

use strict;
use warnings;
use DateTime::Format::Mail;

my $date = "Thu, 17 Jun 2010 00:00:35 +0900";

my $dt = DateTime::Format::Mail->parse_datetime($date);
print $dt->ymd(""), "\n";

$ ./rfc2822date.pl
20100617

DateTime::Format::Strptime

#!/usr/bin/perl

use strict;
use warnings;
use DateTime::Format::Strptime;

my $date = "Jun 17, 2010";

my $strp = DateTime::Format::Strptime->new(pattern => "%b %d, %Y");
my $dt = $strp->parse_datetime($date);
print $dt->ymd(""), "\n";

$ ./strptime.pl
20100617