Chinaunix首页 | 论坛 | 博客
  • 博客访问: 488151
  • 博文数量: 279
  • 博客积分: 4467
  • 博客等级: 上校
  • 技术积分: 2830
  • 用 户 组: 普通用户
  • 注册时间: 2007-04-03 14:43
文章分类

全部博文(279)

文章存档

2013年(1)

2012年(39)

2011年(35)

2009年(29)

2008年(131)

2007年(44)

分类:

2008-01-22 17:27:51

Date::Manip, DateCalc(), UnixDate()

#!/usr/bin/perl

use strict;

use Date::Manip;



my $date=&DateCalc("today","-1 days", 0);#yesterday

my $date=&UnixDate($date, "%Y-%m-%d %T");



print "$date\n";

exit 0;
阅读(595) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~