perl与shell获取昨天、明天或多天前的日期的代码

所属分类: 脚本专栏 / perl 阅读数: 1260
收藏 0 赞 0 分享

一、首先说下perl如何获取

复制代码 代码如下:

#!/usr/bin/perl -w
use POSIX qw(strftime);
my $day = strftime("%Y%m%d", localtime(time - 24*3600));#获取昨天的日期

二、在Linux中对man date -d 参数说的比拟笼统,以下示例进一步解释:

# -d, --date=STRING display time described by STRING, not `now'
[root@Gman root]# date -d next-day +%Y%m%d #明天日期
20091024
[root@Gman root]# date -d last-day +%Y%m%d #昨天日期
20091022
[root@Gman root]# date -d yesterday +%Y%m%d #昨天日期
20091022
[root@Gman root]# date -d tomorrow +%Y%m%d # 明天日期
20091024
[root@Gman root]# date -d last-month +%Y%m #上个月日期
200909
[root@Gman root]# date -d next-month +%Y%m #下个月日期
200911
[root@Gman root]# date -d next-year +%Y #明年日期
2010
DATE=$(date +%Y%m%d -d '2 days ago') #获得2天前的日期

20111022

DATE=$(date +%Y%m%d -d '2 day') #获得2天后的日期

20111026

名目 : date

利用权限 : 所利于用者
利用措施 : date [-u] [-d datestr] [-s datestr] [--utc] [--universal] [--date=datestr] [--set=datestr] [--help] [--version] [+FORMAT] [MMDDhhmm[[CC]YY][.ss]]
解释 : date 能用来揭示或设定系统的日期和工夫,在揭示方面,利用者能设定欲揭示的款式,款式设定为一个加号后接数个符号,其中可用的符号列表如下 :
工夫方面 :
% : 印出
% %n : 下一行
%t : 跳格
%H : 小时(00..23)
%I : 小时(01..12)
%k : 小时(0..23)
%l : 小时(1..12)
%M : 分钟(00..59)
%p : 揭示本地 AM 或 PM
%r : 直接揭示工夫 (12 小时制,款式为 hh:mm:ss [AP]M)
%s : 从 1970 年 1 月 1 日 00:00:00 UTC 到现在为止的秒数 %S : 秒(00..61)
%T : 直接揭示工夫 (24 小时制)
%X : 相当于 %H:%M:%S
%Z : 揭示时区
日期方面 :
%a : 礼拜几 (Sun..Sat)
%A : 礼拜几 (Sunday..Saturday)
%b : 月份 (Jan..Dec)
%B : 月份 (January..December)
%c : 直接揭示日期和工夫
%d : 日 (01..31)
%D : 直接揭示日期 (mm/dd/yy)
%h : 同 %b
%j : 一年中的第几天 (001..366)
%m : 月份 (01..12)
%U : 一年中的第几周 (00..53) (以 Sunday 为一周的第一天的情形)
%w : 一周中的第几天 (0..6)
%W : 一年中的第几周 (00..53) (以 Monday 为一周的第一天的情形)
%x : 直接揭示日期 (mm/dd/yy)
%y : 年份的最后两位数字 (00.99)
%Y : 全面年份 (0000..9999)
若是不以加号作为开始,则表示要设定工夫,而工夫款式为 MMDDhhmm[[CC]YY][.ss],
其中 MM 为月份,
DD 为日,
hh 为小时,
mm 为分钟,
CC 为年份前两位数字,
YY 为年份后两位数字,
ss 为秒数
把计 :
-d datestr : 揭示 datestr 中所设定的工夫 (非系统工夫)
--help : 揭示帮助讯息
-s datestr : 将系统工夫设为 datestr 中所设定的工夫
-u : 揭示现在的格林威治工夫
--version : 揭示版本编号
例子 :
揭示工夫后跳行,再揭示现在日期 : date +%T%n%D
揭示月份和日数 : date +%B %d
揭示日期和设定工夫(12:34:56) : date --date 12:34:56
设置系统目前工夫(12:34:56):date --s 12:34:56
当心 : 当你不渴望揭示无意义的 0 时(例如说 1999/03/07),则能在符号中插入 - 符号,例如说 date +%-H:%-M:%-S 会把时分秒中无意义的 0 给去掉,像是原本的 08:09:04 会变为 8:9:4。另外,只有获得权限者(例如说 root)能力设定系统工夫。 当你以 root 身分改动了系统工夫尔后,请记得以 clock -w 来将系统工夫写入 CMOS 中,这么下次重新开机时系统工夫才会继续抱持最新的准确值。
ntp工夫同步
linux系统下默认安装了ntp服务,手动举行ntp同步如下
ntpdate ntp1.nl.net
当然,也能指定其他的ntp服务器
-------------------------------------------------------------------
伸展功能
date 工具能够告终更多的工作,不但仅只是打印出目前的系统日期。您能够利用它来获得给定的日期究竟是礼拜几,并获得相对于目前日期的相对日期。打听某一天是礼拜几
GNU 对 date 号召的另一个伸展是 -d 选项,当您的桌上未曾日历表时(UNIX 用户无须要日历表),该选项极其有用。利用这秉功能壮大的选项,穿越将日期作为引号括起来的参数供给,您能够迅速地查明一个特定的日期究竟是礼拜几:
$ date -d "nov 22"
Wed Nov 22 00:00:00 EST 2006
$
在本示例中,您能够看到今年的 11 月 22 日是礼拜三。
因而,假想在 11 月 22 日举行一个重大的会议,您能够即刻打听到这一天是礼拜三,而这一天您将赶到驻地办公室。
获得相对日期
d 选项还能够告诉您,相对于目前日期若干天的究竟是哪一天,从目前开始的若干天或若干礼拜尔后,可能过去(过去)。穿越将这个相对偏移利用引号括起来,作为 -d 选项的参数,就能够告终这项任务。
例如,您必需打听两礼拜尔后的日期。万一您处于 Shell 提醒符处,那么能够迅速地获得答案:
$ date -d '2 weeks'
关于利用该号召,还有其他一些重要的措施。利用 next/last号召,您能够获得尔后的礼拜几是哪一天:
$ date -d 'next monday' (下周一的日期)
$ date -d next-day +%Y%m%d(明天的日期)可能:date -d tomorrow +%Y%m%d
$ date -d last-day +%Y%m%d(昨天的日期) 可能:date -d yesterday +%Y%m%d
$ date -d last-month +%Y%m(上个月是几月)
$ date -d next-month +%Y%m(下个月是几月)
利用 ago 号召,您能够获得过去的日期:
$ date -d '30 days ago' (30天前的日期)
您能够利用负数以获得相反的日期:
$ date -d 'dec 14 -2 weeks' (相对:dec 14这个日期的两周前的日期)
$ date -d '-100 days' (100天过去的日期)
$ date -d '50 days'(50天后的日期)

更多精彩内容其他人还在看

perl子程序的运用及子程序中变量私有(my)声明的重要性

perl中的my可以来定义私有变量,可以在很多情况下防止错误的发生
收藏 0 赞 0 分享

perl push的用法及子程序返回值的反思

以下的程序,输出一串数字中比平均值大的数,其中有两个问题值得注意,具体请看程序中的注释
收藏 0 赞 0 分享

perl pop push shift unshift实例介绍

perl的pop跟push操作数组的最右边,shift跟unshift操作数组的最左边
收藏 0 赞 0 分享

perl ping检测功能脚本代码

领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知
收藏 0 赞 0 分享

一行代码解决 perl输入 排序 输出问题

一行代码解决 perl输入 排序 输出问题,需要的朋友可以参考下
收藏 0 赞 0 分享

perl中chomp的使用介绍(chop和chomp函数区别)

perl程序中,有时在输入过程中使用chomp才会得到正确的结果
收藏 0 赞 0 分享

Perl中chomp和chop的区别介绍

chomp是用来删除换行符,chop是用来删除最后一个字符
收藏 0 赞 0 分享

Linux/Unix下安装Perl模块的两种方法分享

Linux/Unix下安装Perl模块有两种方法:手工安装和自动安装。一是从CPAN上下载需要的模块,手工编译、安装。二是联上internet,使用一个叫做CPAN的模块自动完成下载、编译、安装的全过程
收藏 0 赞 0 分享

perl比较两个文件字符串的实例代码

perl比较两个文件字符串的例子,供大家学习参考
收藏 0 赞 0 分享

perl获取日期与时间的实例代码

perl获取日期与时间的例子,供大家学习参考
收藏 0 赞 0 分享
查看更多