#!/usr/bin/perl

use strict;
use File::Tail;
use DBI;

my $server = 'localhost';
my $db = 'apache';
my $username = 'root';
my $password = '';
my $dbh = DBI->connect("dbi:mysql:$db:$server", $username, $password);

my ($line,$ip,$date,$getfile,$client);
my $file = File::Tail->new("/var/log/apache2/access.log");

while (defined($line=$file->read)) {
     $line =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/;
     $ip = $&;

     #$line =~ //;
     #$getfile = $&;
     #$line =~ //;
     #$client = $&;
     my $insert = "insert access set ip=\"$ip\"";
     my $ins = $dbh->prepare($insert);
     $ins->execute();
     my $delete = "delete from access where ip=\"192.168.1.1\"";
     my $del = $dbh->prepare($delete);
     $del->execute();
}