Sunday, December 10, 2006

Perl/펄] 내일 날짜 구하기, 다음날 날짜 얻기; Tomorrow Date

time 함수로 현재의 유닉스 타임을 구한 후, 하루에 해당하는 초(24 * 60 * 60)를 플러스해 주면, 내일 날짜가 구해집니다.

내일 날짜, 내일 연월일 구하기 예제

#!/usr/bin/perl
use strict; use warnings;

my $rightnow = time + (24 * 60 * 60);

printf("내일 년: %04d\n", (localtime $rightnow) [5] + 1900 );
printf("내일 월: %02d\n", (localtime $rightnow) [4] + 1 );
printf("내일 일: %02d\n", (localtime $rightnow) [3] );

실행 결과 화면:
(현재 날짜가 2006-12-31일일 경우)

D:\Z>date /t
2006-12-31 일

D:\Z>0.pl
내일 년: 2007
내일 월: 01
내일 일: 01

D:\Z>