自作関数の紹介

sub days{
  （１）受け渡された日付（"YYYY.M.D"）を年（$regyear）、月（$regmonth）、日（$regday）に分解する。
  local ($regyear, $regmonth, $regday) = split( /\./, $_[0] );

  （２）日数を代入する変数$daysを初期化する。
  local $days = 0;

  （３）現在時刻（ここでは日本時間=JST-9）を取得する。
  $ENV{'TZ'} = "JST-9";
  ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
  $month = $mon + 1;
  $year += 1900;

  （４）今年が閏年かどうか判定（西暦年が4で割り切れれば閏年、よって2月は29日となる）し、各月の日数を配列@monに代入する。
  if( ($year % 4) = = 0 ){
    @mon = (31,29,31,30,31,30,31,31,30,31,30,31);
  }else{
    @mon = (31,28,31,30,31,30,31,31,30,31,30,31);
  }

  （５）現在の日（$mday）から指定の日（$regday）を引いた値を変数$dayに代入する。
  $days = $mday - $regday;

  （６）現在の月（$month）が指定の月（$regmonth）と異なる場合（すなわち同月ではない場合）、指定の月から前月までの日数を変数$daysの値に加算する。
  if($month != $regmonth){
    $m=$regmonth-1;
    while($m!=$mon){
      $days += $mon[$m];
      if($m<12){$m++;}else{$m=0;$regyear++;}
    }
  }

  （７）現在の年（$year）が指定の年（$regyear）より大きい場合（すなわち同年ではない場合）、指定の年から前年までの日数を変数$daysの値に加算する。
  if($year > $regyear){
    for($y=$regyear; $y<$year; $y++){
      if( ($y % 4) = = 0 ){ $days += 366; } else { $days += 365; }
    }
  }

  （８）求められた日数（$days）を返す。
  return $days;
}