Perl로 시간 처리하기

출처 :

http://mwultong.blogspot.com/2006/12/perl-tomorrow-date.html

*** 어제 날짜 구하기

어제 날짜를 알기 위해서는, 단순히 오늘 날짜에 -1을 한다고 되는 것이 아니겠지요.

오늘이 1일이라면, 어제 날짜는 30일이 될 수도 있고, 31일이 될 수도 있고, "어제 달", "어제 년"의 문제도 있습니다.

따라서, time 함수로 현재의 "유닉스 타임"을 구한 후, "하루의 초(sec)"에 해당하는
(24 * 60 * 60) = 86400 초
라는 숫자를 빼면 어제 날짜의 유닉스 타임이 구해집니다. 그 유닉스 타임을 날짜로 변환하면, 어제 날짜가 구해집니다.


#!/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] );

*** 내일 날짜 구하기

#!/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] );

*** 오늘 날짜 구하기

펄에서 오늘 현재의 날짜와 시간을 구하는 방법입니다. 연월일 시분초 별로 나누어서, 화면에 출력합니다.

localtime 이라는 함수에 인수를 주지 않고 실행하면, 현재 시간이 연월일 시분초 별로 들어 있는 리스트를 반환합니다.

파일명: 0.pl

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

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;


printf("현재 년: %04d\n", $year + 1900);
printf("현재 월: %02d\n", $mon + 1);
printf("현재 일: %02d\n", $mday);

print "\n"; # 줄바꿈

printf("현재 시: %02d\n", $hour);
printf("현재 분: %02d\n", $min);
printf("현재 초: %02d\n", $sec);

print "\n"; # 줄바꿈

printf("오늘 요일: %d\n", $wday); # 일요일 = 0
printf("올해 몇번째 날: %d\n", $yday); # 1월1일 = 0
printf("서머타임 여부: %d\n", $isdst); # 서머타임 없음 = 0

*** 유닉스 타임 얻기 예제

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

print time;