Парсинг логов в MySQL с помощью Perl скрипта

sudo tasksel install lamp-server

sudo apt-get install phpmyadmin

sudo apt-get install libdbi-perl

sudo apt-get install libdbd-mysql-perl

CREATE DATABASE `cups_stat`;

USE `cups_stat`;

CREATE TABLE IF NOT EXISTS `tasks_log` (

  `id` bigint(10) NOT NULL auto_increment,

  `prn_name` varchar(50) NOT NULL,

  `user_name` varchar(50) NOT NULL,

  `task_id` int(10) NOT NULL,

  `p_date` datetime NOT NULL,

  `page_num` int(3) NOT NULL,

  `rep_num` int(3) NOT NULL,

  `host` varchar(50) NOT NULL,

  PRIMARY KEY  (`id`)

) ENGINE=MyISAM  DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;

#! /usr/bin/perl
use DBI;
use Time::Local;
#Хост MySQL
$dbhost='localhost';
#Пользователь MySQL
$dbuser='print';
#Пароль пользователя MySQL
$dbpass='print';
#IP Сервера CUPS
$CupsIP='127.0.0.1';
#Имя базы MySQL
$dbname='cups_stat';
#Полное имя page_log
$log='/var/log/cups/page_log';


%mnts = (
Jan => "01",
Feb => "02",
Mar => "03",
Apr => "04",
May => "05",
Jun => "06",
Jul => "07",
Aug => "08",
Sep => "09",
Oct => "10",
Nov => "11",
Dec => "12"
);
#Получаем дату и ID последнего задания в базе
#Подключение к DB
$dbh = DBI->connect("DBI:mysql:database=$dbname;host=$dbhost",$dbuser, $dbpass) || die print "Can't connect";
$sth = $dbh->prepare(q{SELECT UNIX_TIMESTAMP(MAX(p_date)), MAX(task_id) FROM tasks_log});
$sth -> execute;
#print $sth."/n";
    $cols = $sth->{NUM_OF_FIELDS};   # кол-во строк в таблице
    $rows = $sth->rows;              # кол-во столбцов в таблице
    @FieldNames = @{ $sth->{NAME} }; # массив содержащий названия
                              # полей таблицы
    @row = $sth->fetchrow_array;
    $MaxDate=$row[0];
    $MaxTaskId=$row[1];
#    print $MaxTaskId."->".$MaxDate."\n";
#Открываем лог-файл cups
open (FH,$log)|| die print 'Не могу открыть файл! \n';
    while (< FH >)
 {
 @fields=split(' ');
# print $MaxTaskId." > ".$fields[2]."\n";
#Меняем localhost на IP серевера CUPS
 if ($fields[8]=="localhost")
     {
     $fields[8]=$CupsIP;
     }
#Если ID задания из лог-файла больше либо равно ID последнего задания в базе
#и его дата больше даты в базе пишем его в базу.
#Преобразуем формат даты в понятный для MySQL datetime
 if ($fields[2]=>$MaxTaskId || ! $MaxTaskId)
 {
     $year=substr($fields[3],8,4);
     $rmon=$mnts{substr($fields[3],4,3)};
     $mday=substr($fields[3],1,2);
     $sec=substr($fields[3],-2);
     $min=substr($fields[3],-5,2);
     $hours=substr($fields[3],-8,2);
     $udt=$year."-".$rmon."-".$mday." ".substr($fields[3],-8);
     $fields[3]=$udt;
     $TIME = timelocal($sec, $min, $hours, $mday, $rmon-1, $year);
 if ($TIME>$MaxDate)
 {
#Создаем запрос SQL и выполняем его
     $query="insert into tasks_log (prn_name, user_name, task_id, p_date, page_num, rep_num, host) values('".$fields[0]."','".$fields[1]."','".$fields[2]."','".$fields[3]."','".$fields[5]."','".$fields[6]."','".$fields[8]."')";
     $sth = $dbh->prepare(qq{$query});
     $sth -> execute;
 }
 }
 }
# Закрываем лог-файл
close(FH);
# Отключаемся от базы
$sth -> finish;
$dbh -> disconnect;


exit;