Perl语言入门（第8版）

220

｜

第

11

章

$dbh->disconnect();

当然，还有许多其他

DBI

能做的事，具体请参阅它的文档。虽然有些内容可能已经过

时，不过

Programming the Perl DBI

一书仍然是该模块的优秀指南。

处理日期和时间的模块

能够处理日期和时间的模块有许许多多，不过眼下最受欢迎的是

Christian Hansen

编

写的

Time::Moment

模块。它提供了几乎完整的用于处理日期和时间的功能。你可以

从

CPAN

获取该模块。

如果

Time::Moment

不能满足需要，可以选用

DateTime

模块，它也提供了完备

的解决方案。不过这个模块复杂老道，对一般的使用来说略重，但这算是完备

的代价吧。

最常见的需求是把系统中以秒数表示的当前时间（或者纪元时间）转换成一

个

Time::Moment

对象：

use Time::Moment;

my $dt = Time::Moment->from_epoch( time );

或者省略参数，直接用

now

方法取得当前时间：

my $dt = Time::Moment->now;

此后，我们可以取得日期各个部分的数据：

printf '%4d%02d%02d', $dt->year, $dt->month, $dt->day_of_month;

如果有两个

Time::Moment

对象，还可以用它们进行日期计算：

my $dt1 = Time::Moment->new(

year => 1987,

month