Могу предложить вот такой вот скрипт заносит лог access.log в Mysql
для создания таблицы вот скрипт на shmysql --user=root --password=pass --database=squid_stat --execute="drop table squid"
mysql --user=root --password=pass --database=squid_stat \
--execute="create table squid(time varchar(14),ip varchar(16),result_codes varchar(50) \
,bytes bigint unsigned default 0,method varchar(10),url varchar(255),short_url varchar(255),user varchar(30),hierarchy_code varchar(30));"
Заносит только те строчки в БД из лога, которые по времени старше самой старой строчки в БД.
Если мой скрипт что-то не заносит, можно поправить, не сложно, добавить поле в таблице, и элемент массива @a с нужным индексом писать в это поле.
массив @b сделан для записи в бд урл вида http://site.ru/
#!/usr/local/bin/perl
use DBI;
$full_path='/var/log/squid/access.log';
$dbh = DBI->connect("DBI:mysql:squid_stat:localhost",root,pass);
$max_date_query="SELECT MAX(time) FROM squid;";
$sth = $dbh->prepare($max_date_query);
$sth->execute();
$max_date=$sth->fetchrow_array();
#print($max_date."\n");
open(F,$full_path) || die "Can't open traffic plain file";
$k=0;
$i=0;
while ($str=<F>)
{
$k++;
chomp($str);
@a=split('\s+',$str);
if (@a[0]>$max_date)
{
$i++;
@b=split('\/',@a[6]);
$ins_query="INSERT INTO squid (time, ip, result_codes, bytes, method, url, short_url,\
user, hierarchy_code) values ('".@a[0]."','".@a[2]."','".@a[3]."','".@a[4]."','".@a[5]."','".@a[6]."','".@b[0]."//".@b[2]."/"."','".@a[7]."','".@a[8]."');";
$sth = $dbh->prepare($ins_query);
$sth->execute();
}
};
print("The number of parsed strings is ".$k." and was added to database only ".$i." strings.\n");
close(F);
