#!/usr/bin/perl
#
# print the date of calculated day
#
# by sensaba.net 2003.2.5
#
if ($ARGV[0]) {
$day_plus = $ARGV[0];
} else {
$day_plus = 0;
}
$calc_time = time + $day_plus * 24*60*60;
$calc_date_string = &get_date_string($calc_time);
print $calc_date_string.”\n”;
sub get_date_string {
local $result;
local ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(pop(@_));
$year = $year + 1900;
$mon = $mon + 1;
$result = sprintf(“%.4d%.2d%.2d”, $year, $mon, $mday);
return $result;
}