perl 获得昨日日期

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

Jun202008

作者：2hei 发布：2008-06-20 22:34 分类：others 阅读：3,098 views 已关闭评论

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;

该日志由 2hei 于2008年06月20日发表在 others 分类下，
原创文章转载请注明: perl 获得昨日日期 | 二黑的站点
关键字: perl

报歉!评论已关闭.