#!/usr/bin/perl -w
# File: $Id: log_report.pl,v 1.2 2006/11/11 05:07:04 gxr3286 Exp gxr3286 $
# Author: Govind Ramabadran
# Description: This prints out the log report analysis of a log file
# Revisions: $Log: log_report.pl,v $
# Revisions: Revision 1.2  2006/11/11 05:07:04  gxr3286
# Revisions: Fixed it to print as per the sample output
# Revisions:
# Revisions: Revision 1.1  2006/11/11 04:26:04  gxr3286
# Revisions: Initial revision
# Revisions:

while (<>)
{
    chomp;
    $numlines++;
    $numchars += length $_;

    if ($_ =~/^((?:\d{1,3}\.){3}\d{1,3}).*$/)
    {
        $theIP = $1;
        $ip_frequency = {$theIP};
        ++$count{$theIP}
    }
}

#foreach split (' ', lc $_);

my @lines = ();
my ($w, $c);
push (@lines, sprintf("%7d\t%s\n", $c, $w)) while (($w, $c) = each (%count));
print "There are $numlines lines and $numchars characters\n";
print " ";
print "IP addresses in order of frequencies of requests:\n";
print sort { $b cmp $a } @lines;