Shell Programming and Scripting

if ($start_date){

                  if(m/(\d{2}\/\d{2}\/\d{4})\s+(\d{2}\:\d{2})\s+(\D+)\s+STAT/){
                          #print "found AVAIL\n";
                                if ( $3 ne "AVAIL"){
                                 $end_date = $1;
                          $end_time = $2;
                                  my ($smon,$sdate,$syear) = split("\/",$start_date);
                           my ($emon,$edate,$eyear) = split("\/",$end_date);
                           my ($shrs,$smin,$ssec) = split(":",$start_time);
                           my ($ehrs,$emin,$esec) = split(":",$end_time);
                                  @date1 = ($syear,$smon,$sdate,$shrs,$smin,$ssec);
          @date2 = ($eyear,$emon,$edate,$ehrs,$emin,$esec); # ==> less than 12 hours
                                  $d1 = Date_to_Time(@date1);
                           $d2 = Date_to_Time(@date2);
                                  $tt= ($d1-$d2)*.016666666667;
                                  print "\t $start_time $end_time  Both Avail $canontools[$d] $tt\n";

                                  $start_date = '';
                                  $avail_2="OFF";
                                  }
                                }

                              }
 
                   else  {
                 if(m/(\d{2}\/\d{2}\/\d{4})\s+(\d{2}\:\d{2})\s+AVAIL\s+STAT/){
                          $start_date = $1;
                          print "AVAIL\n";
                          $start_time = $2;
                          $avail_1="OFF"
                        }
                   }