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