[Perl] posix qw/strftime/ 이전 시간 구하기

2014/09/11 15:44 이전자료

1. 상단의 모듈 선언

use Time::Local;
use POSIX qw/strftime/

2. 시간

$today_date=strftime "%Y%m%d", localtime;

3. 현재시간으로 이전시간 구하기

$mstr=$today_date;
@mval = ( $mstr =~ m|(\d{4})(\d{2})(\d{2})| );
$mtime = timelocal( 0, 0, 0, $mval[2], $mval[1] - 1, $mval[0] );
$yesterday_date=strftime ( "%Y%m%d", localtime ( $mtime - 24 * 3600 ) );

2번의 today_date 값
20140829
%H%M%S 시분초
%s 유닉스 타임

# 초까지 입력하시려면
$today_date=strftime "%Y%m%d%H%M%S", localtime;

$mstr=$today_date;
@mval = ( $mstr =~ m|(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})| );
$mtime = timelocal( $mval[5], $mval[4], $mval[3], $mval[2], $mval[1] - 1, $mval[0] );
$yesterday_date=strftime ( "%Y%m%d%H%M%S", localtime ( $mtime - 24 * 3600 ) );