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

[João Gabriel]

Luis Campos,
janeiro desse mês teve 31 dias ;-)


Sandro, segue um exemplo completo e elegante...

__CODE PERL__
sub bisexto {
	$ano = $_[0];
	if($ano % "4" eq "0") { return "28"; } else { return "29"; }
}

%diasdomes = (
	1 => 31,
	2 => &bisexto($year),
	3 => 30,
	4 => 31,
	5 => 30,
	6 => 31,
	7 => 30,
	8 => 31,
	9 => 30,
	10 => 31,
	11 => 30,
	12 => 31,
);

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


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




Em 07/11/05, João Gabriel<jamorreu em gmail.com> escreveu:
> Luis Campos...
> > Será que não dá prá fazer um módulo?
>
> tem 200 sobre o assunto no CPAN...
>
> --
> []'s
> João Gabriel
> CGiClube.net - www.cgiclube.net
> Vitória Perl Mongers - vitoria.pm.org
>
>
>
>
>
> Em 06/11/05, Nelson Ferraz<nferraz em gmail.com> escreveu:
> > >   Muito complicado.
> >
> > hehehe
> >
> > Foi esse o objetivo. : )
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>