当前位置: 首页 > others > 正文

perl 获得昨日日期

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;

本文固定链接: http://2hei.net/perl_get_yestoday.html | 2hei's site

该日志由 2hei 于2008年06月20日发表在 others 分类下,
原创文章转载请注明: perl 获得昨日日期 | 2hei's site
关键字:

报歉!评论已关闭.