use DateTime; use Modern::Perl; my $fdm = DateTime->now->subtract(months=>1)->truncate(to=>'month'); my $ldm = DateTime->last_day_of_month(year=>$fdm->year,month=>$fdm->month); my $stf_pat = '%d %b %Y'; say $fdm->strftime($stf_pat),' - ',$ldm->strftime($stf_pat);
In reply to Re: How to get last month date period
by youlose
in thread How to get last month date period
by roborat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |