BINDS  UNBINDS
Hour 00 has  1433 BINDS and  1423 UNBINDS  TOTAL=2856  
Hour 01 has  1501 BINDS and  1502 UNBINDS  TOTAL=3003  
Hour 02 has  1278 BINDS and  1279 UNBINDS  TOTAL=2557  
Hour 03 has  1269 BINDS and  1262 UNBINDS  TOTAL=2531  
Hour 04 has   637 BINDS and   629 UNBINDS  TOTAL=1266  
Hour 05 has   327 BINDS and   323 UNBINDS  TOTAL=650   
Hour 06 has   363 BINDS and   354 UNBINDS  TOTAL=717   
Hour 07 has  1497 BINDS and  1478 UNBINDS  TOTAL=2975  
Hour 08 has  3389 BINDS and  3354 UNBINDS  TOTAL=6743  
Hour 09 has 14671 BINDS and 14646 UNBINDS  TOTAL=29317 
Hour 10 has  4215 BINDS and  4146 UNBINDS  TOTAL=8361  
Hour 11 has  3254 BINDS and  3210 UNBINDS  TOTAL=6464  
Hour 12 has  2795 BINDS and  2757 UNBINDS  TOTAL=5552  
Hour 13 has  2553 BINDS and  2517 UNBINDS  TOTAL=5070  
Hour 14 has  2592 BINDS and  2521 UNBINDS  TOTAL=5113  
Hour 15 has  6258 BINDS and  6229 UNBINDS  TOTAL=12487 
Hour 16 has  2416 BINDS and  2384 UNBINDS  TOTAL=4800  
Hour 17 has  2315 BINDS and  2263 UNBINDS  TOTAL=4578  
Hour 18 has  1838 BINDS and  1819 UNBINDS  TOTAL=3657  
Hour 19 has  1972 BINDS and  1923 UNBINDS  TOTAL=3895  
Hour 20 has  1672 BINDS and  1662 UNBINDS  TOTAL=3334  
Hour 21 has  1540 BINDS and  1501 UNBINDS  TOTAL=3041  
Hour 22 has  1367 BINDS and  1346 UNBINDS  TOTAL=2713  
Hour 23 has  1348 BINDS and  1321 UNBINDS  TOTAL=2669

##</code><code>##

#!/usr/local/bin/perl -w

use strict;

my $count=00;
my $processed_log=$ARGV[0];

# Now that we have the logs, let's give a breakdown of BIND/UNBINDS
# per hour. To start, I'll make it easy and just do them on an hourly
# basis (eg. 09:00-09:59, 10:00-10:59, etc...)

open PROCESSED_LOG, "<$processed_log" or die "Cannot open $processed_log: $!\n";
my @LOGFILE=<PROCESSED_LOG>;
print"BINDS  UNBINDS\n";
for ($count=00; $count<24; ++$count) {
  $count=sprintf("%02d",$count);
  my $bind=0;
  my $unbind=0;
  # I know I'm looping over and over this array. I have to
  # because the parsed log file does not begin or end on
  # hour 00:00:00. It actually starts at about 02:14:00. 
  # Why they chose to roll the log file at 2:15 am, I'll
  # never know, but there you have it.
  foreach (@LOGFILE) {
    if ($_=~/$count:\d\d:\d\d/) {
      if ($_=~/UNBIND/) {
        ++$unbind;
      } elsif ($_=~/BIND/) {
        ++$bind;
      }
    }
  }
  my $total=$bind+$unbind;
  printf ("Hour $count has %5d BINDS and %5d UNBINDS  TOTAL=%-6d\n",$bind,$unbind,$total);
#    print"BINDS  UNBINDS\n";
#  printf ("%-5d    %5d\n",$bind,$unbind,$total);
}

##</code><code>##

Hour 00:00:00 has  1433 BINDS and  1423 UNBINDS  TOTAL=2856  
Hour 00:05:00 has  1501 BINDS and  1502 UNBINDS  TOTAL=3003  
Hour 00:10:00 has  1278 BINDS and  1279 UNBINDS  TOTAL=2557  
Hour 00:15:00 has  1269 BINDS and  1262 UNBINDS  TOTAL=2531