http://www.perlmonks.org?node_id=419773


in reply to Finding End of Month's date

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".