텍스트 날짜를 타임 스탬프로 변환하는 방법?

Question

어떻게 텍스트 형식으로 날짜를 변환 :

23.10.2011 11:35:00 

타임 스탬프?

Answer 1

이 Time::Local를 사용하여 수행 할 수 있습니다

use Time::Local; 

my $date = '23.10.2011 11:35:00'; 
my ($mday,$mon,$year,$hour,$min,$sec) = split(/[\s.:]+/, $date); 
my $time = timelocal($sec,$min,$hour,$mday,$mon-1,$year); 
print $time,"\n",scalar localtime $time; 

출력 :

1319362500 
Sun Oct 23 11:35:00 2011 

Answer 2

나는 DateTime과 parsing modules을 살펴볼 것입니다.

perl -MDateTime::Format::Strptime -le'$strp = DateTime::Format::Strptime->new(pattern => "%d.%m.%Y %T", time_zone => "local"); $dt = $strp->parse_datetime("23.10.2011 11:35:00"); print $dt->epoch' 
1319384100 at -e line 1. 

위와 동일

,하지만 한 라이너 :

use DateTime::Format::Strptime; 
my $strp = DateTime::Format::Strptime->new(
    pattern => '%d.%m.%Y %T', 
    time_zone => 'local', 
); 
my $dt = $strp->parse_datetime('23.10.2011 11:35:00'); 
print $dt->epoch;