ДНЕВНИКИ
Назад >>
Сергей ШИБКА
>>
Perl
09.04.2014 Perl-овые заметки
Определяем сколько дней в месяце.
#!/usr/bin/perl
$y = 2014;
$m = 5;
$days_in_mon = 31 - ( ($m - 1) % 7 % 2 ) - ( ( ($m == 2) << !!($y % 4) ) );
print $days_in_mon;
• комментарии (0)
[ Назад ]
|