PERL script for extracting log file based on time

Below code extracts the huge log file based on time frame passed.

#!/usr/bin/perl

use strict;

my $file;
my $times = 0;
my $needed_response_time = 0;
my $start;
my $end;

sub Usage
{
my ($msg) = $_[0];
if ($msg)
{
print STDERR "$msg \n";
}
print STDERR << "EOHELP"
Usage: split_access_log_by_time

options:

-t - :: time interval for which the log is needed
-g :: filter requests greater than the specified response time

example : split_access_log_by_time -t 10:30:32-12:20:22 access_log
example : split_access_log_by_time -g 10 -t 10:30:32-12:20:22 access_log

EOHELP

}

my $i = 0;
while(defined( (my $arg = $ARGV[$i++]) ))
{
if($arg eq '-g')
{
$needed_response_time = $ARGV[$i++];
}
elsif($arg eq '-t')
{
$times = $ARGV[$i++];
}
elsif($arg eq '-h')
{
Usage();
exit 1;
}
else
{
$file = $arg;
last;
}
}

if(!defined($file))
{
Usage("No input file specified");
exit 1;
}

($start, $end) = split('-', $times);
$start = make_seconds(split(':', $start));
$end = make_seconds(split(':', $end));

if ($end < $start)
{
Usage("end time should be greater than start time");
exit 1;
}

# Group requests based on users
open(FILE, $file);
while()
{
my $line = $_;

my @split = split(' ', $line);
my $time = $split[3];
my $response_time = $split[-1];
$time = substr($time, 1);

my @timefields = split(':', $time);

my $hour = $timefields[1];
my $minute = $timefields[2];
my $second = $timefields[3];

#my $time_in_seconds = ($hour * 60 * 60) + ($minute * 60) + $second;
my $time_in_seconds = make_seconds($hour, $minute, $second);
if ($start<=$time_in_seconds && $end>=$time_in_seconds && $response_time >= $needed_response_time)
{
print $line;
}
}

sub make_seconds()
{
(my $hour, my $minute, my $second) = @_;
return ($hour * 60 * 60) + ($minute * 60) + $second;
}

Extract total number of requests hits

Below is the command to calculate no of time projects accessed using the url. The informations are retrieved from log file where all the requests are logged.

cut -d ' ' -f 7 ssl_request_log |grep '/sf/'|cut -d '/' -f 3|sort|uniq -c

cut -d ' ' -f 7 ssl_request_log |grep '/sf/'|sort|uniq -c

Sample log file

[31/Aug/2008:05:50:08 +0200] 0.0.0.0 SSLv3 RC4-MD5 "GET /asf-help/RoboHelp_CSH.js HTTP/1.1" 7677
[31/Aug/2008:05:50:08 +0200] 0.0.0.0 SSLv3 RC4-MD5 "GET /wsf-images/masthead/logo.gif HTTP/1.1" 2430
[31/Aug/2008:05:50:09 +0200] 0.0.0.0 SSLv3 RC4-MD5 "GET /fsf-images/masthead/dropdown.gif HTTP/1.1" 49
[31/Aug/2008:05:50:09 +0200] 0.0.0.0 SSLv3 RC4-MD5 "GET /nsf-images/masthead/help.gif HTTP/1.1" 402