Re: [Cascavel-pm] Total de dia de determinado mês.
Luis Campos de Carvalho
monsieur_champs em yahoo.com.br
Domingo Novembro 6 14:10:54 PST 2005
--- Nelson Ferraz <nferraz em gmail.com> escreveu:
> 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);'
Muito complicado.
Será que não dá prá fazer um módulo?
Comentários são bem-vindos...
E ainda acho que um hash-table é mais rápido e mais fácil de usar e debugar...
Putamplexos!
--
Luis Campos de Carvalho
Member of "São Paulo Perl Mongers",
Unix SysAdmin & OCP/DBA Oracle
http://br.geocities.com/monsieur_champs/
_______________________________________________________
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/
Mais detalhes sobre a lista de discussão Cascavel-pm