Re: [Cascavel-pm] Total de dia de determinadomês.
Gabriel Vieira
gabriel.vieira em gmail.com
Segunda Novembro 7 15:28:41 PST 2005
Correção simples: Julho e agosto têm 31 dias ;)
Abraços,
Gabriel Vieira
----- Original Message -----
From: <marcoantonio.lima em vivo.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Monday, November 07, 2005 9:50 PM
Subject: Re: [Cascavel-pm] Total de dia de determinadomês.
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__
-------------------------------------------------------------------------
M a r c o L i m a
VIVO - DGSI - Tarifação - RJ - ES
DBA - Engenharia de Sistemas
marcoantonio.lima em vivo.com.br
Tel: +55 21 25 74 36 67
Cel: +55 21 82 48 03 85
-------------------------------------------------------------------------
|---------+-------------------------------->
| | João Gabriel |
| | <jamorreu em gmail|
| | .com> |
| | Enviado Por: |
| | cascavel-pm-bou|
| | nces em pm.org |
| | |
| | |
| | 07/11/2005 |
| | 18:06 |
| | Responder a |
| | Cascavel Perl |
| | Mongers |
| | |
|---------+-------------------------------->
>-----------------------------------------------------------------------------------------------------------|
|
|
| Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
|
| cc:
|
| Assunto: Re: [Cascavel-pm] Total de dia de determinado mês.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
>-----------------------------------------------------------------------------------------------------------|
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
> >
>
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
Mais detalhes sobre a lista de discussão Cascavel-pm