在Perl中,如何确保字符串对应于有效日期？

Question

我想知道在Perl中是否有一种简单的方法来确保日期字符串对应于有效日期.

例如,2012 02 30不正确,因为它不存在.

Answer 1

该日期时间创建一个新的对象时,模块将验证日期.

$ perl -we 'use DateTime; my $dt; 
    eval { $dt = DateTime->new( 
        year => 2012, 
        month => 2, 
        day => 30);
    }; print "Error: $@" if $@;'

Error: Invalid day of month (day = 30 - month = 2 - year = 2012) at -e line 1

它也可以在给定DateTime对象上动态工作:

$dt->set(day => 30);

Answer 2

检查这里： http: //www.perlmonks.org/? node_id=564594

相信您会从高僧大德那里得到您想要的答案。