Perl日期和时间

本文概述

• Perl localtime()
• Perl创建时间戳
• Perl GMT时间, gmtime()
• Perl时代时间
• Perl POSIX函数strftime()
• Perl显示日期和时间

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

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

use 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创建时间戳

可以通过立即调用构造函数来创建一个显示当前日期和时间的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时代时间

纪元时间是指特定日期和时间之后的秒数。此特定日期和时间因不同的操作系统而异。例如, 对于Unix, 它是1970年1月1日。由于所有操作系统具有不同的纪元时间, 因此你不能假定一个系统与另一个系统的纪元时间。

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

输出

1483686914

Perl POSIX函数strftime()

Perl POSIX strftime()函数用于格式化日期和时间, 并在说明符前加(％)符号。说明符有两种类型, 一种用于本地时间, 另一种用于gmt时区。

本地说明符

GMT指标

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