#!/usr/bin/perl
#
# Lager oversikt over antall requester per minutt 
# ut i fra en RealAudio logg fil.
#
#  --A.Vonheim Mars 1998

#Lag hash med antall requests per minutt
open LOG, "pnaccess.log";
while( <LOG> ) {
    #Trekk ut dato (m/time/minutt)
    ($date) = ($_ =~ /\[([^:]*?:..:..)/);
    $min_req{$date}++;
}
close LOG;
#ut: $min_req{"4 mars 12:00"}=3 ganger (det minuttet)


#Tell opp hvor mange som har samme antall req.
foreach (values %min_req) {
    $req_count{ $_ }++;
}
#ut: $req_count{"4"}=antall minutter med 4 reqester


#Skriv ut statistikken.
foreach ( keys %req_count) {
    print $req_count{$_}." minutter med $_ requester.\n";
}


