shell中取得昨日日期比较简单，方法也比较多，google下方法多的是，这里暂不介绍；但是关于perl如何获得昨日日期的指定格式：

如 2008-06-20 颇费周折，总结一下可以使用如下方法：

#!/usr/bin/perl -w
#from net, edit by 2hei
#get yestoday

($_,$_,$_,$mday,$mon,$year)=localtime(time-86400);
$mon++;
$mon=”0$mon”
if ($mon<10);
        $mday=”0$mday”
if ($mday<10);
        $year+=1900;

print $year-$mon-$mday;

本文固定链接: https://www.2hei.net/2008/06/20/perl_get_yestoday/ | 2hei.net