#!/usr/local/bin/perl

 ($time1, $time9, $file) = @ARGV;
#printf "%s %s %s\n", $time1, $time9, $file;

 open(FILE, $file);
  @lines= <FILE>;
 $nlines= @lines;
#printf "%4d %s\n", $nlines, $file;

 for ($i= 0; $i < $nlines; $i++) {
    $line= $lines[$i]; 
   @words= split(' ', $line);
    $time= $words[0];
   $water= $words[1];
     if ( abs ( $time - $time1 )  <  1/24. ) {
        $water1= $water;
        $mhit++;
        }
     if ( abs ( $time - $time9 )  <  1/24.) {
        $water9= $water;
        $nhit++;
        }
     }

#printf "%9.3f %9.3f %4d\n", $time1, $water1, $mhit;
#printf "%9.3f %9.3f %4d\n", $time9, $water9, $nhit;
 printf " %9.3f %9.3f %8.3f %8.3f %8.3f %3d %3d\n", $time1, $time9, $water9 - $water1, $water1, $water9, $mhit, $nhit;