#!/usr/bin/perl
my $filename = 'test';
open(my $fh, '<:encoding(UTF-8)', $filename) ;

reenter:
while (my $row = <$fh>)
{
#2017-3-7-0:16:20 3.030
#2017-3-7-0:18:21 2.857
#2017-3-7-0:20:20 2.870
#2017-3-7-0:22:20 2.991
#2017-3-7-0:24:20 3.118
#2017-3-7-1:45:20 3.152
#2017-3-7-1:31:20 3.421
#2017-3-8-1:45:20 2.665
#2017-3-8-1:31:20 5.765
 if ($row =~ /(\d+)-(\d+)-(\d+)-(\d+):(\d+):(\d+) (\d+.\d+)/)
     {
         $rtt = $7 ;
         $day = $3 ;
         $hour = $4 ;
          while (my $row = <$fh>)
            {
             if ($row =~ /(\d+)-(\d+)-(\d+)-(\d+):(\d+):(\d+) (\d+.\d+)/)
                {
                  $nextrtt = $7 ;
                  $nextday = $3 ;
                  $nexthour = $4 ;
                   if ($hour == $nexthour && $day==$nextday)
                      {
                       $time = $rtt + $nextrtt ;
                       $i++ ;
                      }
                   else
                      {

                       $time = $time / $i ;
                       print ("$hour  ");
                       print("$time\n");
                       $i = 0 ;
                       goto reenter ;
                      }
                }

            }
     }
}