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

[João Gabriel]

Sim, testei o código porém postei com uma pequena falha...

segue a correção do "for" (que é um exemplo prátido da aplicão):

__CODE PERL__
for ($conta=1, $max=12; $conta <= $max; $conta++) {
       print "Mês: $conta -> $diasdomes{$conta} dias<br>";
}
__END CODE PERL__


Perl Golf sux :D


--
[]'s
João Gabriel
CGiClube.net - www.cgiclube.net
Vitória Perl Mongers - vitoria.pm.org


Em 07/11/05, marcoantonio.lima em vivo.com.br<marcoantonio.lima em vivo.com.br>
escreveu:
>
> Tenho certeza que o Luis queria dizer isso ! Mas acho que poderia ficar
> mais simples, têm muito 31 e 30 nesse hash, se inverter para keys e
> referenciar arrays dos meses ficaria bem menor .. ;-)) Perl Golf !
>
> __PERL__
>   %days_in_month = ( 1 => 30,
>                      2 => ($year % 4) ? 28 : 29,
>                      3 => 31,
>                      4 => 30,
>                      5 => 31, ... );
>
>   $quantidade_dias = $days_in_month{ 2 };
>   __END__