Дней в месяце

[Error202]

Как узнать количество дней в заданном месяце?

[Wyclef]

Код: [Выделить]

my @mdays = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
my ($month, $year) = ((localtime)[4]+1, (localtime)[5]+1900);

my $mdays = ($year-2000)/4 == int(($year-2000)/4) && $month == 2 ? 29 : $mdays[$month-1];

print $month, \'/\', $year, \' -> \', $mdays, \' days\';

[Error202]

Да спасибо... Я так и сделал... Думал вдруг есть что-нть стандартное...