Perl - 日期和时间

本章将为您提供有关如何在Perl中处理和操作日期和时间的基本知识.

当前日期和时间

让我们来看看从 localtime()函数开始,如果没有参数,则返回当前日期和时间的值.以下是 localtime 函数返回的9元素列表,在列表上下文中使用 :

sec,     # seconds of minutes from 0 to 61
min,     # minutes of hour from 0 to 59
hour,    # hours of day from 0 to 24
mday,    # day of month from 1 to 31
mon,     # month of year from 0 to 11
year,    # year since 1900
wday,    # days since sunday
yday,    # days since January 1st
isdst    # hours of daylight savings time

尝试以下示例打印localtime()函数返回的不同元素 :

#!/usr/local/bin/perl
 
@months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
@days = qw(Sun Mon Tue Wed Thu Fri Sat Sun);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
print "$mday $months[$mon] $days[$wday]\n";

执行上述代码时,会产生以下结果 :

16 Feb Sat

如果你将在标量上下文中使用localtime()函数,那么它将从当前设置的时区返回日期和时间系统.请尝试以下示例以完整格式打印当前日期和时间 :

#!/usr/local/bin/perl
 
$datestring = localtime();
print "Local date and time $datestring\n";

执行上述代码时,会产生以下结果 :

Local date and time Sat Feb 16 06:50:45 2013

GMT时间

功能 gmtime()的工作方式与localtime()函数类似,但返回的值已针对标准格林威治时区进行了本地化.在列表上下文中调用时,$ isdst,gmtime返回的最后一个值始终为0.GMT中没有夏令时.

您应该记录本地时间的事实()将返回运行脚本的机器上的当前本地时间,gmtime()将返回通用格林威治标准时间或GMT(或UTC).

请尝试以下示例打印当前日期和时间但是按GMT比例和减去;

#!/usr/local/bin/perl

$datestring = gmtime();
print "GMT date and time $datestring\n";

执行上述代码时,会产生以下结果 :

GMT date and time Sat Feb 16 13:50:45 2013

格式日期和时间

你可以使用localtime()函数获取9个元素的列表,之后您可以使用 printf()函数根据您的要求设置日期和时间的格式,如下所示;

#!/usr/local/bin/perl
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

printf("Time Format - HH:MM:SS\n");
printf("%02d:%02d:%02d", $hour, $min, $sec);

执行上述代码时,会产生以下结果 :

Time Format - HH:MM:SS
06:58:52

大纪元时间

您可以使用time()函数来获取纪元时间,即自给定日期以来经过的秒数,在Unix中是1970年1月1日.

#!/usr/local/bin/perl
 
$epoc = time();

print "Number of seconds since Jan 1, 1970 - $epoc\n";

执行上述代码时,会产生以下结果 :

Number of seconds since Jan 1, 1970 - 1361022130

您可以将给定的秒数转换为日期和时间字符串,如下所示;

#!/usr/local/bin/perl

$datestring = localtime();
print "Current date and time $datestring\n";

$epoc = time();
$epoc = $epoc - 24 * 60 * 60;   # one day before of current date.

$datestring = localtime($epoc);
print "Yesterday's date and time $datestring\n";

执行上述代码时,会产生以下结果 :

Current date and time Tue Jun  5 05:54:43 2018
Yesterday's date and time Mon Jun  4 05:54:43 2018

POSIX函数strftime()

您可以使用POSIX函数 strftime()在下表的帮助下格式化日期和时间.请注意,标有星号(*)的说明符是与语言环境相关的.

Specifier替换为示例
%a 缩写的工作日名称* Thu
%A 完整工作日名称*星期四
%b 缩写的月份名称* 8月
%B 完整月份名称*八月
%c 日期和时间表示*周四ug 23 14:55:02 2001
%C 年除以100并截断为整数( 00-99 ) 20
%d 每月的日期,零填充( 01-31 ) 23
%D Short MM/DD/YY 日期,相当于%m/%d/%y 08/23/01
%e 每月的日期,空格填充( 1- 31 ) 23
%F YYYY-MM-DD 日期,相当于%Y-%m-%d 2001-08-23
%克 基于周的年份,最后两位数( 00-99 ) 01
%G 基于周的年度 2001
%h 缩写的月份名称*(与%b 相同) 8月
%H 24小时格式的小时( 00-23 ) 14
%I 12小时格式的小时( 01-12 ) 02
%j 一年中的某一天( 001-366 ) 235
%m 月份为十进制数字( 01-12 ) 08
%M 分钟( 00-59 ) 55
%n New-行字符('\ n'')
%p 上午或下午指定 PM
%r 12小时时间* 02:55:02 pm
%R 24小时 HH:MM 时间,相当于%H:%M 14:55
%S 秒( 00-61 ) 02
% t 水平标签字符('\t')
%T ISO 8601时间格式( HH:MM:SS ),相当于%H:%M: %S 14:55
%u ISO 8601工作日作为周一的数字 1 ( 1-7 ) 4
%U 第一周日作为第一周第一天的周数( 00-53 ) 33
%V ISO 8601周数( 00-53 ) 34
%w 工作日为十进制数,星期日为 0 ( 0-6 ) 4
%W 第一周一作为第一周第一天的周数( 00-53 ) 34
%x 日期表示* 08/23/01
%X 时间表示* 14:55:02
%y 年份,最后两位数字( 00-99 ) 01
%Y 2001
%z

ISO 8601与时区的UTC偏移量( 1分钟= 1,1小时= 100)

如果时区不能是termine d,没有字符

+100
%Z

时区名称或缩写*

如果时区不能被定义,则没有字符

CDT
%% A 签收

让我们检查以下示例以了解使用情况 :

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

$datestring = strftime "%a %b %e %H:%M:%S %Y", localtime;
printf("date and time - $datestring\n");

# or for GMT formatted appropriately for your locale:
$datestring = strftime "%a %b %e %H:%M:%S %Y", gmtime;
printf("date and time - $datestring\n");

执行上述代码时,会产生以下结果 :

date and time - Sat Feb 16 07:10:23 2013
date and time - Sat Feb 16 14:10:23 2013