#! /usr/bin/perl
#use strict;
use warnings;

use Time::Local;

my $infile =  "D:\\Privat\\PERL Projekt\\access.log.proxy";
my $outfile = "D:\\Privat\\PERL Projekt\\auswertung.csv";
my ($ip,$date,$time);
my ($d, $mon, $yy, $h, $min, $sek) = 0;
my $sektime = 0;
my $gestern;

print ("Bitte Datum von Gestern eingeben");
print ("Beispiel: 02/Nov/2015\n");
chomp ($gestern=<STDIN>);


open (READLOG, "<$infile") or die ("Datei $infile nicht gefunden.\n\n");
open (WRITE, ">$outfile") or die ("Datei $outfile konnte nicht erstellt werden.\n\n");

while (<READLOG>){
   if ($_=~m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}[^\[\]]+\[\d{2}\/[a-zA-z]{3}\/\d{4}:\d{2}:\d{2}:\d{2}\s[\+|\-]\d{4}\]/)
   {
      ($ip,$date,$time) = m/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})[^\[\]]+\[(\d{2}\/[a-zA-z]{3}\/\d{4})\:(\d{2}:\d{2}:\d{2})\s[\+|\-]\d{4}\]/;
      
      if ($date eq $gestern) {
         ($d, $mon, $yy) = split( "/", $date );
         ($h, $min, $sek) = split( ":", $time );
         $sektime = timelocal ($sek,$min,$h,$d,$mon,$yy);
        print ("$ip;$sektime\n");
         print WRITE ("$ip"." "."$sektime"."\n"); 
         }


   }
}
close (WRITE);
close(READLOG);