Как в Perl определить сколько дней в месяце

Как в Perl определить сколько дней в месяце

[APL]

@days = (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
if ($year % 4) {
   $days[1] = 28;
}

количество дней в году $year = $days[$mon] (где $mon - 0-11)

http://search.cpan.org/doc/STBEY/Date-Calc-5.0/Calc.pod

[APL]

тьфу! не в году а в месяце конечно

[APL]

а зачем такой огород если просто нужно кол-во дней?

[Evgeny]

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


use Time::Local;
$m=2;
$y=2000;

print ((localtime(timelocal(0,0,0,1,$m,$y-1900)-1))[3]);


[APL]

IMHO мой вариант побыстрее

[Evgeny]

IMHO мой вариант побыстрее

Не в скорости дело, а в умении!
А вообще ты смайлик внизу кода видел?

[APL]

В умении делать что? Скорость, как правило, главный критерий.

[Evgeny]

В умении делать что? Скорость, как правило, главный критерий.

Блин, ещё раз говорю, не тормози, посмотри на смайлик под моим кодом.