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