gpt4 book ai didi

14、Perl 时间日期

转载 作者:大佬之路 更新时间:2024-01-21 22:46:16 24 4
gpt4 key购买 nike

Perl 内置了四个函数用来处理日期和时间。

这四个函数分别是:

函数 说明
time() 返回从1970年1月1日起累计的秒数
localtime() 获取本地时区时间
gmtime() 获取格林威治时间
strftime() 格式化日期和时间

Perl 中显示当前时间和日期

localtime 函数在没有参数的情况下返回当前的时间和日期

localtime 函数返回 9 个元素组成的返回值。

9 个元素代表不同的时间日期参数

元素 说明
sec 秒, 0 到 61
min 分钟, 0 到 59
hour 小时, 0 到 24
mday 天, 1 到 31
mon 月, 0 到 11
year 年,从 1900 开始
wday 星期几,0-6,0表示周日
yday 一年中的第几天,0-364,365
isdst 如果夏令时有效,则为真

我们用一个范例来演示 localtime 函数的使用

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut

@months = qw( 一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月 );
@days = qw(星期天 星期一 星期二 星期三 星期四 星期五 星期六);

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

运行以上范例,输出结果如下:

$ perl main.pl
5 十月 星期四

直接调用 localtime() 则返回系统当期设置时区的时间

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut

$datestring = localtime();
print "时间日期为:$datestring\n";

运行以上范例,输出结果如下:

$ perl main.pl
时间日期为:Thu Oct  5 17:35:09 2017

Perl 中显示格林威治时间( GMT )

gmtime() 函数返回标准格林威治时间

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut

$local_datestring = localtime();
print "本地时间日期为:$local_datestring\n";

$gmt_datestring = gmtime();
print "GMT 时间日期为:$gmt_datestring\n";

运行以上范例,输出结果如下:

$ perl main.pl
本地时间日期为:Thu Oct  5 17:36:53 2017
GMT 时间日期为:Thu Oct  5 09:36:53 2017

从范例运行结果来看,我们本地时间和格林威治时间相差了8小时

Perl 中格式化日期和时间

使用 printf() 函数和 localtime() 函数返回的 9 个时间元素可以输出自定义的格式的时间

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

printf("将时间格式化为:YYYY-MM-dd HH:MM:SS\n");
printf("%04d-%02d-%02d %02d:%02d:%02d\n",$year+1900,$mon+1,$mday,$hour, $min, $sec);

运行以上范例,输出结果如下:

$ perl main.pl
将时间格式化为:YYYY-MM-dd HH:MM:SS
2017-10-05 17:43:27

Perl 中显示新纪元时间(Epoch Time)

time() 函数可以返回新纪元时间,该函数返回从1970年1月1日起累计的秒数

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut

$epoc = time();

print "从1970年1月1日起累计的秒数为:$epoc\n";

以上范例执行输出结果为:

$ perl main.pl
从1970年1月1日起累计的秒数为:1507196708

我们可以输出自己想要的时间格式

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
print "当期时间和日期:";
printf("%d-%d-%d %d:%d:%d",$year+1900,$mon+1,$mday,$hour,$min,$sec);

print "\n";

$epoc = time();
$epoc = $epoc - 24 * 60 * 60;   # 一天前的时间秒数
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($epoc);
print "昨天时间和日期:";
printf("%d-%d-%d %d:%d:%d",$year+1900,$mon+1,$mday,$hour,$min,$sec);

print "\n";

以上范例执行输出结果为:

$ perl main.pl
当期时间和日期:2017-10-5 17:46:27
昨天时间和日期:2017-10-4 17:46:27

Perl 中使用 POSIX 函数 strftime() 格式化日期和时间

strftime() 函数可以将时间格式化为我们想要的格式

下表列出了 strftime() 函数格式化的符号

  • 号表示想要依赖本地时间
符号 描述 范例
%a 星期几的简称( Sun..Sat) * Thu
%A 星期几的全称( Sunday..Saturday) * Thursday
%b 月的简称(Jan..Dec) * Aug
%B 月的全称(January..December) * August
%c 日期和时间 * Thu Aug 23 14:55:02 2001
%C 年份除于100,并取整 (00-99) 20
%d 一个月的第几天 (01-31) 23
%D 日期,MM/DD/YY相等于%m/%d/%y 08/23/01
%e 一个月的第几天,使用空格填充个位数 (1-31) 23
%F YYYY-MM-DD的简写类似于%Y-%m-%d 2001-08-23
%g 年份的最后两位数 (00-99) 01
%g 2001
%h 月的简称 * (和%b选项相同) Aug
%H 24 小时制 (00-23) 14
%I 12 小时制 (01-12) 02
%j 一年的第几天 (001-366) 235
%m 月 (01-12) 08
%M 分钟 (00-59) 55
%n 新行 ('\n')
%p 显示出AM或PM PM
%r 时间(hh:mm:ss AM或PM),12小时
*
02:55:02 pm
%R 24 小时HH:MM时间格式,相等于%H:%M 14:55
%S 秒数 (00-61) 02
%t 水平制表符 ('\t')
%T 时间(24小时制)(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 显示日期的格式(mm/dd/yy) * 08/23/01
%X 显示时间格式 * 14:55:02
%y 年,两位数 (00-99) 01
%Y 2001
%z ISO 8601与UTC的时区偏移(1 minute=1, 1 hour=100) +100
%Z 当前时区的名称,如"中国标准时间" * CDT
%% %符号 %

strftime 函数使用范例

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut

use POSIX qw(strftime);

$datestring = strftime "%Y-%m-%d %H:%M:%S", localtime;
printf("时间日期 - $datestring\n");

#  GMT 格式化时间日期
$datestring = strftime "%Y-%m-%d %H:%M:%S", gmtime;
printf("时间日期 - $datestring\n");

以上范例执行输出结果为:

$ perl main.pl
时间日期 - 2017-10-05 17:49:33
时间日期 - 2017-10-05 09:49:33

24 4 0
文章推荐: 18、Perl 文件操作
文章推荐: 22、Perl 正则表达式
文章推荐: 11、Perl 条件语句
文章推荐: 17、Perl 格式化输出
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com