如何在Perl中验证日期？

发布时间：2020-12-15 21:58:48 所属栏目：大数据来源：网络整理

导读：如何在Perl中验证日期字符串？我想说明闰年和时区.有人可能会按以下格式输入日期： 11/17/200811/17/2008 3pm11/17/2008 12:01am11/17/2008 12:01am EST11/17/2008 12:01am CST 解决方法我用 DateTime::Format::DateManip这样的东西.使用你的约会…. use Da

如何在Perl中验证日期字符串？我想说明闰年和时区.有人可能会按以下格式输入日期：

11/17/2008
11/17/2008 3pm
11/17/2008 12:01am
11/17/2008 12:01am EST
11/17/2008 12:01am CST

解决方法

我用 DateTime::Format::DateManip这样的东西.使用你的约会….

use DateTime::Format::DateManip; 

my @dates = (
    '11/17/2008','11/17/2008 3pm','11/17/2008 12:01am','11/17/2008 12:01am EST','11/17/2008 12:01am CST',);

for my $date ( @dates ) {
    my $dt = DateTime::Format::DateManip->parse_datetime( $date );
    die "Cannot parse date $date"  unless defined $dt;
    say $dt;
}

# no dies.. produced the following....
# => 2008-11-17T00:00:00
# => 2008-11-17T15:00:00
# => 2008-11-17T00:01:00
# => 2008-11-17T05:01:00
# => 2008-11-17T06:01:00

NB.我在GMT这里！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!