Shell Programming and Scripting

#!/usr/local/bin/perl

use strict;
use warnings;

my %counts;
while(<>){
    $counts{$1} = 0 if (/\[(\d{4}-\d{2}-\d{2})/ ) && (! defined $counts{$1});
    $counts{$1}++ if /\[(\d{4}-\d{2}-\d{2}).+STATUS/;
}
for my $date (sort keys %counts){
    print "$date , $counts{$date}\n";
}

awk -F'[[ ]' '{d[$2]}/STATUS/{d[$2]++}END{for(i in d)print i,d[i]?d[i]:0}' OFS=, filename