Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w
use strict;
...
    printf "Hour %s has %5d BINDS and %5d UNBINDS  TOTAL=%-6d\n", $hou
+r, @{ $data{ $hour } }{ qw/BIND UNBIND/ }, $data{ $hour }{ BIND } + $
+data{ $hour }{ UNBIND };
    }
  2. or download this
    #!/usr/local/bin/perl -w
use strict;
...
    printf "Hour %s has %5d BINDS and %5d UNBINDS  TOTAL=%-6d\n", $hou
+r, @{ $data{ $hour } }{ qw/BIND UNBIND/ }, $data{ $hour }{ BIND } + $
+data{ $hour }{ UNBIND };
    }