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 erniechung | 2010/03/24 16:10 | Perl | 트랙백 | 덧글(0)

트랙백 주소 : http://erniechung.egloos.com/tb/10446123
☞ 내 이글루에 이 글과 관련된 글 쓰기 (트랙백 보내기) [도움말]

:         :

:

비공개 덧글

◀ 이전 페이지다음 페이지 ▶