0 Пользователей и 1 Гость просматривают эту тему.
use Time::Local;$m=2; $y=2000;print ((localtime(timelocal(0,0,0,1,$m,$y-1900)-1))[3]);
IMHO мой вариант побыстрее
В умении делать что? Скорость, как правило, главный критерий.