>> Delete Reply from No. 432 article
No. RE: perl에서 시간 형식 변환

등록 2000-02-15 06:14:00     조회 4
이름 적수    

		기본 함수 중에는 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 *---------------*
[관리자] 패스워드를 입력 하십시오. 답장이 존재하면 함께 삭제됩니다.[ 목록 | 이전 ]
패스워드:    

Copyleft 1999-2026 by JSBoard Open Project
Theme Designed by IDOO All right reserved