Take a look at
Date::Object:
use Date::Object ;
my $d = Date::Object->new_local(2005 , 1 , 5) ;
my $d_end = $d->clone->set(undef,undef,31) ; ## set(YYYY , MM , DD)
print "date: $d\n" ;
print "date end: $d_end\n" ;
if ( $d == $d_end ) {
print "Date is the last day of month!\n" ;
}
Output:
date: 2005-01-05 00:00:00
date end: 2005-01-31 00:00:00
Try to change the inputs for $d on new_local() to match the last day of the month. If you don't paste any argument it will get the actual time.
Graciliano M. P.
"Creativity is the expression of liberty".