Perl Date and Time

# perl0003.lib
# Written:  1999-06-04  James Alarie
#
# Time and Date:
#   $time_second, $time_minute, $time_hour, $time_full(hh:mm:ss),
#   $time_tag (hhmmss), $date_month, $date_day, $date_year(ccyy),
#   $date_tag(ccyymmdd), $date_full(mm-dd-ccyy), $date_julian(ccyy.ddd),
#   $date_ftag(ccyymmdd_hhmmss), $date_month_name, $date_day_name

  @month_names = ("January", "February", "March", "April", "May", "June",
    "July", "August", "September", "October", "November", "December");
  @day_names = ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday",
    "Friday", "Saturday");

  ($time_second, $time_minute, $time_hour,          # server time/date
    $date_day, $date_month, $date_year,
    $day_week, $day_year, $isdst) = localtime(time);

  $time_hour   = sprintf("%02d", $time_hour);       # force 2 digits
  $time_minute = sprintf("%02d", $time_minute);    
  $time_second = sprintf("%02d", $time_second);
  $time_full = $time_hour.":".$time_minute.":".$time_second;
  $time_tag  = $time_hour.$time_minute.$time_second;

  $date_month_name = $month_names[$date_month];
  $date_day_name   = $day_names  [$day_week];

  if ($date_year < 70) {$date_year += 2000;}        # add century
    else {$date_year += 1900;}

  $workm1 = sprintf("%02d", $date_month + 1);       # force 2 digits
  $workd1 = sprintf("%02d", $date_day);
  $workd2 = sprintf("%03d", $day_year + 1);
  $date_full   = "$workm1-$workd1-$date_year";      # mm-dd-yy
  $date_tag    = $date_year.$workm1.$workd1;        # ccyymmdd
  $date_ftag   = $date_tag."_".$time_tag;           # ccyymmdd_hhmmss
  $date_julian = "$workm1.$workd2";                 # ccyy.ddd

  $date_time{'time_hour'}       = $time_hour;
  $date_time{'time_minute'}     = $time_minute;
  $date_time{'time_second'}     = $time_second;
  $date_time{'time_full'}       = $time_full;       # hh:mm:ss
  $date_time{'time_tag'}        = $time_tag;        # hhmmss
  $date_time{'date_month'}      = $date_month;
  $date_time{'date_day'}        = $date_day;
  $date_time{'date_year'}       = $date_year;       # ccyy
  $date_time{'date_tag'}        = $date_tag;        # ccyymmdd
  $date_time{'date_full'}       = $date_full;       # mm-dd-ccyy
  $date_time{'date_ftag'}       = $date_ftag;       # ccyymmdd_hhmmss
  $date_time{'date_julian'}     = $date_julian;     # ccyy.ddd
  $date_time{'date_month_name'} = $date_month_name;
  $date_time{'date_day_name'}   = $date_day_name;


#***** Accessed correctly:
1;