[root@june2 ~]# cat 2.pl
use POSIX qw(strftime);
my $yesterday = strftime "%Y-%m-%d", localtime(time-86400);
my $today = strftime "%Y-%m-%d", localtime;
my $tomorrow = strftime "%Y-%m-%d", localtime(time+86400);
print "\$yesterday is $yesterday\n";
print "\$today is $today\n";
print "\$tomorrow is $tomorrow\n";
[root@june2 ~]# perl 2.pl
$yesterday is 2014-04-13
$today is 2014-04-14
$tomorrow is 2014-04-15
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
