使用perl计算日期
来源:互联网 发布:逛淘宝费多少流量 编辑:程序博客网 时间:2024/06/05 11:40
#!/usr/bin/perl
sub addDate{
($delt) = @_;
my $date = time() + 60 * 60 * 24 * $delt;
(undef, undef, undef, $day, $month, $year) = localtime $date;
$year += 1900;
$month++;
return sprintf "%d%02d%02d", $year, $month, $day;
}
print addDate(0) . "/n";
print addDate() . "/n";
print addDate(128) . "/n";
print addDate(-1) . "/n";
- 使用perl计算日期
- PostgreSQL的日期运算计算函数使用
- 【Python】Python_learning5:使用python计算生日日期
- 使用jquery实现计算两个日期差
- 计算Java日期:学习怎样创建和使用日期
- perl 中的日期处理
- Perl日期处理
- Perl 时间日期
- 日期计算
- 计算日期
- 日期计算
- 日期计算
- 日期计算
- 日期计算
- 日期计算
- 计算日期
- 日期计算
- 日期计算
- Java报表软件分页预览中如何设置冻结及冻结效果
- tomcat6 nio
- 时间,偷偷的在流走
- if 是什么东西啊
- if 是什么东西啊
- 使用perl计算日期
- 简单突破数据库备份路径拿shell
- Perl调试器的用法
- C++引用
- SQL高级编程
- SQL高级编程
- java泛型中的pecs法则
- iBATIS sql中的处理特殊符号的做法
- 5530,图像和视频无法显示