+ 26 °C 

. -. . . . . . . . -. . . -. . - - . . 158 . . . CentOS Oracle SAMBA GlassFish LAMP Motion EJabberd Postfix. Dovecot. Amavisd Perl Jabber VLC M3U Ubuntu
   .   1600x1200.


>> >> 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)


[ ]


2005 - 2018 *