#!/usr/bin/perl   
  
###use strict;  
  
use Getopt::Long;  
use Time::Local;  
  
my $file="access_log_modified";  
my $begin_time = "";  
my $end_time;  
my @visual_pages = ();  
my @final_visual_pages = ();  
my %increment = ();  
my ($datetime, $get_post, $Day, $Month, $Year, $Hour, $Minute, $Second);  
my $interval = 60;  #An interval of 1 minute  
  
count_recs();  
  
sub count_recs {  
  
   open (INFILE, "<$file") || die "Cannot read from $file";  
   WHILELOOP: while (<INFILE>) {  
                 ($datetime,$get_post) = (split / /) [3,6];   
                 $datetime =~ s/\[//;  
                 ($Day,$Month,$Year,$Hour,$Minute,$Second)= $datetime =~m#^(\d\d)/(\w\w\w)/(\d\d\d\d):(\d\d):(\d\d):(\d\d)#;  
  
	            next WHILELOOP if ($get_post =~ /\.js$/ || $get_post =~ /\.gif$/ || $get_post =~ /\.css$/);  
  
                   unless ($begin_time) {  
                      $begin_time = $datetime;  
                   }                      
                   push (@dates, $datetime);  
  
   } #outer while  
  
   foreach $dateproc (@dates) {  
      $increment{$dateproc}++;  
   }  
   foreach $dateproc (sort keys %increment) {  
      push (@{$processed_visual_pages{$dateproc}}, $increment{$dateproc});  
      print "$dateproc @{$processed_visual_pages{$dateproc}}\n";  
   }   
  
   close(INFILE);  
}