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

[Flavio S. Glock]

Em 08/11/05, marcoantonio.lima em vivo.com.br<marcoantonio.lima em vivo.com.br>
escreveu:
>
> Praticar !!!

Além disso, você pode escrever um módulo e publicar no CPAN, ou
contribuir para os projetos existentes.
Aqui vão dois exemplos - o primeiro módulo eu escrevi, e no segundo eu
participei desde o início:

use Date::Tie;
tie my %date, 'Date::Tie';
$date{month}++;
for ( 0 .. 10 ) {
    $date{day} = 0;
    print "$date{year}/$date{month} tem $date{day} dias\n";
    $date{month}+=2;
}

print "\n";

use DateTime;
my $dt = DateTime->today;
for ( 0 .. 10 ) {
    my $dt2 = DateTime->last_day_of_month(
        year => $dt->year, month => $dt->month );
    print $dt2->strftime("%Y/%m tem %d dias\n");
    $dt->add( months => 1 );
}

- Flavio S. Glock