Jan ' Kozo ' Vajda wrote:
> use Date::Tie;
> tie my %date, 'Date::Tie', year => 2001, month => 8, day => 31;
> $date{month} += 1;
> print "Month: $date{month}\tDay: $date{day}\n"
By the way, if what you want is next month's last day, try this:
$d{month} += 2;
$d{day} = 0;
It works because day 0 is actually before day 1 :)
- Fl�vio Soibelmann Glock
