给calc_mon传一个月数的参数,打印对应那个月对应的天。
比如,想看2个月前的日期,调用:cacl_mon(-2);
use POSIX qw(strftime mktime);
print cacl_mon(-2);
sub cacl_mon {
my $m = shift;
my $op = $m >= 0 ? "+" : "";
($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$mon = eval("$mon $op $m");
$time_t = mktime( $sec, $min, $hour, $mday, $mon, $year );
return strftime("%Y-%m-%d",localtime($time_t));
}
比如,想看2个月前的日期,调用:cacl_mon(-2);
use POSIX qw(strftime mktime);
print cacl_mon(-2);
sub cacl_mon {
my $m = shift;
my $op = $m >= 0 ? "+" : "";
($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$mon = eval("$mon $op $m");
$time_t = mktime( $sec, $min, $hour, $mday, $mon, $year );
return strftime("%Y-%m-%d",localtime($time_t));
}