perl获取昨天,前天等的日期

来源:互联网 发布:淘宝商家登录页面 编辑:程序博客网 时间:2024/05/21 14:43

use strict;
use POSIX;

 print strftime("%Y-%m-%d",localtime(time()-86400*1));

原创粉丝点击