取月的最后一天

sub getLastDayDate{

 my ($sys_date) = @_;
 my $sum_date;
 if(substr($sys_date, 5, 2) eq '01')
 {
  $sum_date = (substr($sys_date, 0, 4) - 1).'/'.'12'.substr($sys_date, 7, 3);
 }
 else{
  
  $sum_date = substr($sys_date, 0, 5).sprintf("%02d",substr($sys_date, 5, 2) - 1).substr($sys_date, 7, 3);
 }

 my $days = Date::Calc::Days_in_Month(substr($sum_date,0,4), substr($sum_date,5,2));
 $days = sprintf("%02d",$days);
 return substr($sum_date,0,8).$days;
}