기본 함수 중에는 mktime 같은 놈이 없더군요. 모듈을 좀 뒤지니까 나와서
알려 드립니다.
혹시 크래이지 웹보드에서 저장된 데이타가 로칼 타임이라면 timegm 대신에
timelocal을 사용하시면 됩니다.
timegm(timelocal)에서 month는 0부터 시작하니 받은 값에서 1을 빼는게
맞습니다.
*-----------------* cut here *---------------*
#!/usr/bin/perl
use Time::Local;
$date = 19990909123015;
$date =~ /^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})$/;
$year = $1;
$mon = $2 - 1;
$day = $3;
$hour = $4;
$min = $5;
$sec = $6;
$time = timegm($sec,$min,$hour,$day,$mon,$year);
printf("%d", $time);
*-----------------* cut here *---------------*