Perl에서 dd/mm/yyyy를 epoch 시간으로 변환하는 방법은 무엇입니까?

Question

dd/mm/yyyy 형식을 에포크 시간으로 변환하는 수식을 몇 시간 동안 검색했지만 해결책을 찾지 못했습니다.

두 개의 다른 형식으로 변환 한 후 두 날짜가 있습니다.이 형식은 이제 "08011985"및 "09302014"와 같습니다. 가장 오래된 날짜와 가장 늦은 날짜의 차이를 얻기 위해 시간대로 변환해야하며 스프레드의 크기에 따라 무언가를해야합니다.

모듈을 설치할 수없고 5.8.8입니다.

Answer 1

여기에 항상 펄 5의 핵심 구성 요소

use strict; 
use warnings; 

use Time::Local qw/ timelocal /; 

for my $date (qw/ 08011985 09302014 /) { 
    print epoch_for_mmddyyyy($date), "\n"; 
} 

sub epoch_for_mmddyyyy { 
    my ($m, $d, $y) = unpack 'A2A2A4', shift; 
    timelocal(0, 0, 0, $d, $m-1, $y); 
} 

출력 된 Time::Local 모듈을 사용하여 예제

491698800 
1412031600 

Answer 2

내장 모듈 Time::Local은 localtime 및 gmtime, timelocal 및 timegm의 역함수를 제공합니다. 그들은 날짜와 시간을 가져 와서 시간을 되 돌린다.

perlfaq4은 이러한 종류의 질문을 다룹니다.