脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - perl - perl与shell获取昨天、明天或多天前的日期的代码

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

2020-06-17 11:20perl教程网 perl

这篇文章主要介绍了perl与shell获取昨天、明天或多天前的日期的代码,需要的朋友可以参考下

一、首先说下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天后的日期)

延伸 · 阅读

精彩推荐
  • perlperl常见问题集合之二

    perl常见问题集合之二

    哪些平台上有 Perl?要到哪里去找? Perl的标准发行版(由 perl 发展小组负责维护)仅以原始码形式发行。您可在 http: //www.perl.com/CPAN/src/latest.tar.gz处取得。这个档...

    脚本之家2102020-05-29
  • perlPerl从文件中读取字符串的两种实现方法

    Perl从文件中读取字符串的两种实现方法

    有时候我们需要从文件中读取字符串,这里简单介绍下, 需要的朋友可以参考下 ...

    脚本之家6252020-06-08
  • perlPerl使用nginx FastCGI环境做WEB开发实例

    Perl使用nginx FastCGI环境做WEB开发实例

    这篇文章主要介绍了Perl使用nginx FastCGI环境做WEB开发实例,实现了路由系统和模板系统,需要的朋友可以参考下...

    Perl教程网2412020-06-18
  • perlPerl的经典用法分享

    Perl的经典用法分享

    Perl的经典用法分享,学习perl的朋友可以参考下 ...

    脚本之家6562020-06-06
  • perlPerl List::Util模块使用实例

    Perl List::Util模块使用实例

    这篇文章主要介绍了Perl List::Util模块使用实例,本文给出扫描符合条件的某个列表并取出第一个符合条件的、求1到1000之间的和 、求一组数字的最大值与最小...

    脚本之家4712020-06-22
  • perlperl命令行参数内建数组@ARGV浅析

    perl命令行参数内建数组@ARGV浅析

    这篇文章主要介绍了perl命令行参数内建数组@ARGV浅析,本文重点在于讲解@ARGV的用法,并通过实例来说明,需要的朋友可以参考下 ...

    perl教程网6162020-06-18
  • perlperl use vars pragma使用技巧

    perl use vars pragma使用技巧

    perl 中的vars是perl中的一个pragma(预编译指示符),专门用来预定义全局变量,这些预定义后的全局变量在qw()列表中,在整个引用perl文件中皆可使用,即便使...

    perl教程网6812020-06-16
  • perlperl pop push shift unshift实例介绍

    perl pop push shift unshift实例介绍

    perl的pop跟push操作数组的最右边,shift跟unshift操作数组的最左边 ...

    脚本之家4612020-06-10