nn/stat/calc.pl

#!/usr/bin/perl -w

use strict;

my @months = ( "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" );

my $mon_nr=1;
my %month2nr;
foreach my $mon (@months) {
        $month2nr{$mon}=sprintf("%02d",$mon_nr);
        $mon_nr++;
}

my %count;
my %get;
my %post;

while(<>) {
        chomp;
        if (m,\[(\d+)/(\w+)/(\d{4}):(\d\d):(\d\d):\d\d\s+\S+\]\s+"([^"]+)"\s+,) {
                my ($dd,$mmm,$yyyy,$hh,$mm,$method) = ($1,$2,$3,$4,$5,$6);
                die "can't convert '$mmm' to number!" if (! defined($month2nr{$mmm}));
#               my $date="$yyyy-".$month2nr{$mmm}."-$dd $hh";
                my $date="$yyyy-".$month2nr{$mmm}."-$dd 00";
                if ($method =~ m/nn\.cgi/) {
                        $count{$date}++;
                        $get{$date}=0 if (! defined($get{$date}));
                        $post{$date}=0 if (! defined($post{$date}));
                        if ($method =~ m/get/i) {
                                $get{$date}++;
                        } else {
                                $post{$date}++;
                        }
                }
        } else {
                print STDERR "line '$_' skipped!\n";
        }
}

foreach (keys %count) {
        print "$_\t$count{$_}\t$get{$_}\t$post{$_}\n";
}
1	dpavlin	1.1	#!/usr/bin/perl -w
2
3	dpavlin	1.2	use strict;
4
5			my @months = ( "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" );
6
7			my $mon_nr=1;
8			my %month2nr;
9			foreach my $mon (@months) {
10			$month2nr{$mon}=sprintf("%02d",$mon_nr);
11			$mon_nr++;
12			}
13
14	dpavlin	1.1	my %count;
15	dpavlin	1.2	my %get;
16			my %post;
17	dpavlin	1.1
18			while(<>) {
19			chomp;
20	dpavlin	1.2	if (m,\[(\d+)/(\w+)/(\d{4}):(\d\d):(\d\d):\d\d\s+\S+\]\s+"([^"]+)"\s+,) {
21			my ($dd,$mmm,$yyyy,$hh,$mm,$method) = ($1,$2,$3,$4,$5,$6);
22			die "can't convert '$mmm' to number!" if (! defined($month2nr{$mmm}));
23			# my $date="$yyyy-".$month2nr{$mmm}."-$dd $hh";
24			my $date="$yyyy-".$month2nr{$mmm}."-$dd 00";
25			if ($method =~ m/nn\.cgi/) {
26			$count{$date}++;
27			$get{$date}=0 if (! defined($get{$date}));
28			$post{$date}=0 if (! defined($post{$date}));
29			if ($method =~ m/get/i) {
30			$get{$date}++;
31			} else {
32			$post{$date}++;
33			}
34			}
35	dpavlin	1.1	} else {
36			print STDERR "line '$_' skipped!\n";
37			}
38			}
39
40			foreach (keys %count) {
41	dpavlin	1.2	print "$_\t$count{$_}\t$get{$_}\t$post{$_}\n";
42	dpavlin	1.1	}