Shell Programming and Scripting

#! /opt/third-party/bin/perl

open(FILE, "<", "a");

while(<FILE>) {
  chomp;
  my @arr = split(/ /);
  next if( $arr[8] !~ /201/ );
  my ($nh, $nm, $ns) = split(/:/, $arr[7]);
  my ($ch, $cm, $cs) = split(/:/, $arr[5]);
  if( $cm + 5 >= 60 ) {
    $cm = 4;
    $ch + 1 >= 24  ? $ch = 0 : $ch++;
  }
  else {
    $cm+=5;
  }
  $fileHash{"$nh:$nm:$ns-$ch:$cm:$cs"}++;
}

close(FILE);

foreach my $k ( sort keys %fileHash ) {
  print "key:$k val:$fileHash{$k}\n";
}

exit 0