Perl 日期和时间

2024 年 8 月 29 日 | 阅读 3 分钟

在 Perl 中处理日期和时间最合适的方法是使用 DateTime 模块。

在每次进行日期和时间操作之前，我们需要通过脚本将 DateTime 加载到内存中。

Perl localtime()

如果不带任何参数使用 localtime() 函数，则会返回系统当前日期和时间。

#!/usr/local/bin/perl
$datetime = localtime();
print "Current date and time according to the system : $datetime\n";

输出

Current date and time according to the system : Fri Jan 6 11:52:04 2017

Perl 创建时间戳

可以通过调用 now 构造函数来创建一个显示当前日期和时间的 DateTime 对象。

示例

use DateTime;
my $datetime = DateTime->now;
print "$datetime\n";

输出

2017-01-06T06:29:38

我们也可以通过分部分提供所有详细信息（如日期、分钟、秒等）来创建 DateTime 对象。 Perl 将假设未传递任何详细信息的数据为“0”。

示例

use DateTime;
$datetime = DateTime->new(
    day        => 18,
    month      => 7,
    year       => 2003,
    hour       => 12,
);
print"$datetime\n";

输出

2003-07-18T12:00:00

在上面的输出中，我们没有传递分钟和秒部分的任何详细信息。因此 Perl 假定为零。

Perl GMT 时间，gmtime()

此函数的工作方式与 localtime() 函数类似，唯一的区别是 gmtime() 返回的值是针对标准格林威治时区的本地化值。

#!/usr/local/bin/perl
$gmt = gmtime();
print "$gmt\n";
$local = localtime();
print "$local\n";

输出

Fri Jan 6 08:43:31 2017
Fri Jan 6 14:13:31 2017

Perl Epoch 时间

Epoch 时间是指特定日期和时间之后的秒数。这种特定的日期和时间因不同的操作系统而异。例如，对于 Unix，它是 1970 年 1 月 1 日。由于所有操作系统都有不同的纪元时间，因此您无法从一个系统假定另一个系统的纪元时间。

#!/usr/local/bin/perl
$epoch = time();
print "$epoch\n";

输出

1483686914

Perl POSIX 函数 strftime()

Perl POSIX strftime() 函数用于使用以 (%) 符号开头的说明符格式化日期和时间。有两种类型的说明符，一种用于本地时间，另一种用于 gmt 时区。

本地说明符

说明符	用途	示例
%a	表示星期几的简称	太阳
%A	表示星期几的全称	星期日
%b	表示月份的简称	七月
%B	表示月份的全称	七月
%c	表示日期和时间	2017 年 1 月 6 日星期五 12:34:07
%h	表示月份的简称，与 %b 相同	七月
%r	12 小时制时钟时间	下午 6:15:30
%x	表示日期	12/28/12
%X	表示时间	15:34:06
%Z	表示时区

GMT 说明符

说明符	用途	示例
%C	年份除以 100 并以整数形式书写 (00-99)	34
%d	月份的日期，零填充 (01-31)	33
%D	表示 MM/DD/YY	07/18/17
%e	月份的日期，空格填充 (1-31)	33
%F	表示 YYYY-MM-DD	2017/07/18
%g	基于周的年份，最后两位数字 (00-99)	05
%g	基于周的年份	2015
%H	24 小时制的小时	17
%I	12 小时制的小时	05
%J	一年中的天数 (001-366)	365
%m	月份的十进制数 (01-12)	07
%M	分钟 (00-59)	35
%n	换行符
%p	AM 或 PM	AM
%R	24 小时制 HH:MM 时间	17:55
%S	秒 (00-59)	45
% t	水平制表符字符
%T	ISO 8601 时间格式 (HH:MM:SS)	21:45
%u	ISO 8601 星期几，从星期一 (1-7) 开始编号
%U	周数，以第一个星期日作为第一周的第一天 (00-53)
%V	ISO 8601 周数 (00-53)
%w	星期几，以十进制数表示，从星期日 (0-6) 开始
% W	周数，以第一个星期一作为第一周的第一天 (00-53)	17
%y	年份的最后两位数字 (00-99)	2017
% Y	完整年份
%z	ISO 8601 与 UTC 的时区偏移量（1 分钟 = 1，1 小时 = 100）	+100
%%	一个 % 符号	%

Perl 显示日期和时间

有时我们需要以不同的格式显示日期或时间。为此，我们可以按如下所示更改 Perl 中的格式。

示例

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use DateTime;
my $datetime = DateTime->new(
    day        => 18,
    month      => 7,
    year       => 2003,
    hour       => 12,
    minute     => 00,
    second     => 00,
);
say $datetime;
say $datetime->ymd;
say $datetime->ymd('_');
say $datetime->hms;
say $datetime->epoch;
say $datetime->year;
say $datetime->month;
say $datetime->day;
say $datetime->strftime( '%Y-%m-%d-%H-%M-%S' );

输出

2003-07-18T12:00:00
2003-07-18
18-07-2003
12:00:00
1058529600
2003
7
18
2003-07-18-12-00-00

下一主题Perl Socket 编程

← 上一步下一步 →

我们提供所有技术（如 Java 教程、Android、Java 框架）的教程和面试问题

联系信息

G-13, 2nd Floor, Sec-3, Noida, UP, 201301, India

hr@tpointtech.com

+91-9599086977

关注我们

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

Perl 教程

Perl 控制语句

Perl 数组

Perl 字符串

Perl 命名空间

Perl 哈希

Perl Regex

Perl 函数

Perl 文件处理

Perl 目录

Perl 错误处理

Perl 高级

Perl 面试

Perl 日期和时间

Perl localtime()

Perl 创建时间戳

Perl GMT 时间，gmtime()

Perl Epoch 时间

Perl POSIX 函数 strftime()

本地说明符

GMT 说明符

Perl 显示日期和时间

相关帖子

Perl 创建 Excel

Perl Socket 编程

Perl DBI (数据库)

Perl 命令行参数

Perl 面向对象

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器