#!/usr/bin/perl
sub addDate{
($delt) = @_;
my $date = time() + 60 * 60 * 24 * $delt;
(undef, undef, undef, $day, $month, $year) = localtime $date;
$year += 1900;
$month++;
return sprintf "%d%02d%02d", $year, $month, $day;
}
print addDate(0) . "/n";
print addDate() . "/n";
print addDate(128) . "/n";
print addDate(-1) . "/n";
使用perl计算日期
最新推荐文章于 2024-06-12 08:10:16 发布