#!/usr/bin/perl -w


#$LOGFILE = "/var/log/apache2/access.log";
open(LOGFILE, '<', $ARGV[0]) or die("Could not open log file.");
open(OUT, '>', $ARGV[1]) or die "Error: $!\n";
foreach $line (<LOGFILE>) {
    $w = "(.+?)";
    $line =~ m/^$w $w $w \[$w:$w $w\] "$w $w $w" $w $w (.+)/;


    $site     = $1;
    $logName  = $2;
    $fullName = $3;
    $date     = $4;
    $time     = $5;
    $gmt      = $6;
    $req      = $7;
    $file     = $8;
    $proto    = $9;
    $status   = $10;
    $length   = $11;
	$ident = $12;

	%log = ("ip","$site","lname","$logName","name","$fullName","date","$date","time","$time","gmt","$gmt","request","$req","file","$file","prototype","$proto","status","$status","length","$length","ident","$ident");

	print "\n$log{ip} , $log{date} , $log{time} , $log{request} , $log{file} \n\n $log{ident}\n";
	print OUT "$log{ip}\n";
    # do line-by-line processing.
}
close(LOGFILE);
close(OUT);