Perl中的10个操作日期和时间的CPAN模块介绍

2019-10-01 11:16:47丽君

在进行性能基准测试,测量某个代码块运行的速度,以及收集精确的读数以指导您进行优化的时候使用这个模块。

Time::Normalize

这个模块提供的例程用来把任意日期和时间值格式化成一个统一的、标准的表示,它然后可以被用来进行计算或者保存。它会对输入的内容进行错误检查,然后以清楚的格式返回独立的时间和/或日期组件。
当您怀疑输入的日期有错误并需要在数据库或者应用程序里使用它之前“清理干净”的时候使用这个模块。

Regexp::Common::time

这个模块会创建可以用被用来分析日期和时间的正则表达式。它支持同时使用精确的规则和复杂的模糊逻辑从字符串值捕捉日期模式。
用这个模块从人们易于理解的字符串识别和提取日期信息,并将它转换成机器可读的格式(例如ISO 8601)。

MySQL::DateFormat

这个模块提供的例程可以把日期和数字在MySQL的YYYY-MM-DD格式和人们易于理解的字符串之间来回转换。在从/到MySQL数据库取回/添加含有日期信息的记录时这个模块十分有用。
为了以可读性更强的方式显示,或者在将它插入MySQL数据库之前修改用户提供的日期值,您可以使用这个模块来重新格式化MySQL的日期/时间字符串。

Net::Time

这个模块提供了一个从远程客户端取回日期和时间信息的客户端接口。如果您的应用程序要总是确保知道当前的日期和时间,以保证系统不被黑客窥探,这就显得尤其有用。
在通过TCP网络从远程主机上取回日期/时间字符串的时候要使用这个模块。

使用示例:

取得某一日期时间的信息

方法一

use POSIX qw(strftime);
localtime(time() - 24*60*60)
strftime "%Y%m%d%k%M%S",localtime $^T;

方法二

use 5.010;
use POSIX qw(strftime);
# These are core modules in Perl 5.10 and newer
use Time::Piece;
use Time::Seconds;

my $yesterday = localtime() - ONE_DAY;
say $yesterday->strftime('%b %d %Y');