perl获得当期的日期和时间

1.使用 POSIX 模块

perl -e 'use POSIX; print strftime("%Y-%m-%d %H:%M:%S\n",localtime)'

如果有时差，将时差时间加到localtime后面。如：我现在使用的主机是 dreamehost 的主机，当前时区是 -700 ，而中国的时区是+800，相差15小时，为了让同步程序的时间正常，需要将系统时间向后调整15小时。时差调整为　时差*3600。

perl -e ‘use POSIX; print strftime(”%Y%m%d %H:%M:%S”, localtime(time+15*3600))’

一个perl的脚本

#!/usr/bin/perl
      use strict;
      use POSIX qw(strftime);

my $week    = strftime "%u", localtime;
       my $date    = strftime "%Y-%m-%d", localtime;

print "$week,$date";

 

#!/usr/bin/perl -w
       use strict;
       use POSIX qw(strftime);
       my $datetime=strftime("%Y-%m-%d %H:%M:%S\n", localtime(time));
       print $datetime;
       print strftime("%Y%m%d", localtime);

输出结果

2016-03-15 16:14:46
       20160315

 

2.使用 HTTP::Date 模块

perl -e 'use HTTP::Date;print HTTP::Date::time2iso(time);'

如果有时差，将时差时间加到time后面。时差调整为　时差*3600。

perl -e ‘use HTTP::Date;print HTTP::Date::time2iso(time+15*3600);

3.直接调用 localtime 函数

  perl -e ‘($sec,$min,$hour,$mday,$mon,$year)=localtime(time);$mon++;$mon=”0$mon” if ($mon<10);$mday=”0$mday” if ($mday<10);$year+=1900;print “$year-$mon-$mday”;’

 

函数strftime()的操作有些类似于sprintf()：识别以百分号(%)开始的格式命令集合，格式化输出结果放在一个字符串中。格式化命令说明串strDest中各种日期和时间信息的确切表示方法。格式串中的其他字符原样放进串中。格式命令列在下面，它们是区分大小写的。 
　　%a 星期几的简写 
　　%A 星期几的全称 
　　%b 月分的简写 
　　%B 月份的全称 
　　%c 标准的日期的时间串 
　　%C 年份的后两位数字 
　　%d 十进制表示的每月的第几天 
　　%D 月/天/年 
　　%e 在两字符域中，十进制表示的每月的第几天 
　　%F 年-月-日 
　　%g 年份的后两位数字，使用基于周的年 
　　%G 年分，使用基于周的年 
　　%h 简写的月份名 
　　%H 24小时制的小时 
　　%I 12小时制的小时 
　　%j 十进制表示的每年的第几天 
　　%m 十进制表示的月份 
　　%M 十时制表示的分钟数 
　　%n 新行符 
　　%p 本地的AM或PM的等价显示 
　　%r 12小时的时间 
　　%R 显示小时和分钟：hh:mm 
　　%S 十进制的秒数 
　　%t 水平制表符 
　　%T 显示时分秒：hh:mm:ss 
　　%u 每周的第几天，星期一为第一天 （值从0到6，星期一为0） 
　　%U 第年的第几周，把星期日做为第一天（值从0到53） 
　　%V 每年的第几周，使用基于周的年 
　　%w 十进制表示的星期几（值从0到6，星期天为0） 
　　%W 每年的第几周，把星期一做为第一天（值从0到53） 
　　%x 标准的日期串 
　　%X 标准的时间串 
　　%y 不带世纪的十进制年份（值从0到99） 
　　%Y 带世纪部分的十制年份 
　　%z，%Z 时区名称，如果不能得到时区名称则返回空字符。 
　　%% 百分号