Re: [Cascavel-pm] Total de dia de determinado mês.

Nelson Ferraz nferraz em gmail.com
Sábado Novembro 5 17:58:59 PST 2005


Para "detectar" o total de dias de um determinado mês:

perl -e 'print join("\n",map((30+($_<=7&&$_%2==1)+($_>=8&&$_%2==0)-2*($_==2)),(1..12)));'

Idem, para vários anos:

perl -e '($ano=$_)&&print"$ano:",join(",",map((30+($_<=7&&$_%2==1)+($_>=8&&$_%2==0)-($_==2)-($_==2&&$ano%4!=0||$ano%100==0&&$ano%400!=0),(1..12)))),"\n"for(1992..2012);'


Mais detalhes sobre a lista de discussão Cascavel-pm