nn/stat/calc.pl

#!/usr/bin/perl -w

my %count;

while(<>) {
        chomp;
        if (m,\[(\d+/\w+/\d{4}:)(\d\d):(\d\d:)\d\d\s+\S+\]\s+"(\w+)\s+,) {
                my ($date,$hh,$mm,$method) = ($1,$2,$3,$4);
                $count{"$date$hh"}++;
        } else {
                print STDERR "line '$_' skipped!\n";
        }
}

foreach (keys %count) {
        print "$_\t$count{$_}\n";
}
1	dpavlin	1.1	#!/usr/bin/perl -w
2
3			my %count;
4
5			while(<>) {
6			chomp;
7			if (m,\[(\d+/\w+/\d{4}:)(\d\d):(\d\d:)\d\d\s+\S+\]\s+"(\w+)\s+,) {
8			my ($date,$hh,$mm,$method) = ($1,$2,$3,$4);
9			$count{"$date$hh"}++;
10			} else {
11			print STDERR "line '$_' skipped!\n";
12			}
13			}
14
15			foreach (keys %count) {
16			print "$_\t$count{$_}\n";
17			}