2010년 03월 24일
X일 전/후 날짜 출력
my $aday_in_sec = 60*60*24; # a day in sec
my $adjust = -8;
my $a = time + ($aday_in_sec * $adjust);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($a);
$year += 1900;
my $real_m = $mon+1;
my $mm = $real_m < 10 ? "0".$real_m : $real_m;
my $dd = $mday < 10 ? "0".$mday : $mday;
print "$year$mm$dd\n";
$adjust 값을 바꿔 넣으면 됨. (현재는 -8일 전의 날짜 출력)
# by | 2010/03/24 16:10 | Perl | 트랙백 | 덧글(0)





☞ 내 이글루에 이 글과 관련된 글 쓰기 (트랙백 보내기) [도움말]