trunk/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	#!/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	}
Name	Value
cvs2svn:cvs-rev	1.1
svn:executable	*
svn:mime-type	application/octet-stream