Select Code to Download

Select or download this

$dataChunk = substr($_, 42, 17);  # yields >06/05/2008  8:31a< from $_
if ($dataChunk =~ m|\d\d/\d\d/\d\d|) {
...
    } #  END: foreach my $hr (sort keys %{$ClubTotal{'$day'}{HourSignI
+n}}) {
  } #   END:  foreach my $day (sort keys %ClubTotal) {
} #END: sub SortBuildOutput{

Select or download this

%ClubTotal = (
      'DayOfMonth26' => {
...
                                 'HalfHour00' => 11,
                                 'TotPerHour' => 23
                               },