2012/5/5 Dmitry L. <[email protected]>:

> DateTime + Try::Tiny?

Проще:
$ perl -MTime::Local -le 'print eval{timegm(0,0,0,20,1,2011)} ? 1 : 0'

Потому что:
$ corelist Time::Local
Time::Local was first released with perl 5

-- 
maxim.vuets.name
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить