perl中如何获取当前日期的前一天

Question

perl中如何获取当前日期的前一天，如当前是20110425,我想得到20110424,如何得到这个字符串，谢谢

Answer 1

发错版了

Answer 2

1. use POSIX qw(strftime);
2. my $yesterday = strftime "%Y%m%d", localtime(time-86400);

复制代码

Answer 3

Cu_fans 发表于 2011-04-25 11:37

谢谢

Answer 4

如果估计发错版的，我建议暂关小黑屋