当前位置：首页 → 问答吧 → 帮我看下这段代码为啥总是报这样的错误

帮我看下这段代码为啥总是报这样的错误

时间：2010-08-31

来源：互联网

本帖最后由 heqidz 于 2010-08-31 12:34 编辑

分析apache 日志的

#!/bin/env perl
use strict;
use warnings;
use DBI;
use POSIX qw#strftime#;
my %serial;
my %month = ('Jan'=>'01','Feb'=>'02','May'=>'03',
'Apr'=>'04','May'=>'05','Jun'=>'06',
'Jul'=>'07','Aug'=>'08','Sep'=>'09',
'Oct'=>'10','Nov'=>'11','Dec'=>'12'
);
my $logdir = "/log/apache_log/201008apachelog";
my $date = strftime "%m%d",localtime(time-86400);
opendir LOG,"$logdir" or die "$!\n";
while (my $file = readdir LOG) {
next unless $file =~ m{\d+_\d{2}$date.};
print $file . "\n";
open FILE,"$logdir/$file" or die "$!\n";
while (my $str = <FILE>) {
chomp $str;
next if $str =~ m{^(127|::)};
next unless $str =~ m{onfig}i;
my (@record) = $str =~ m{^(\S+).*(\d{2}/\w+/\d{4}):\d+.*&id=(\d+)};
my ($serial) = $str =~ m{serial=(\w+)};
next if (!$serial);
my ($svn) = $str =~ m{svn=(\w+)};
$svn = "" if (!$svn);
next if !$record[2] or $record[2] =~ m{^0};
my @tmpdate = split /\//,$record[1];
my $date = "$tmpdate[2]-$month{$tmpdate[1]}-$tmpdate[0]";
my $key = "$record[2]\t$serial\t$date";
$serial{$key} = "$record[0]\t$svn";
}
close FILE;
}
closedir LOG;
my @array = ();
my $sqlstr = "";
for (sort keys %serial) {
my @tmpA = split /\t/,$_;
my @tmpB = split /\t/,$serial{$_};
my $values = "('$tmpA[0]','$tmpA[1]','$tmpA[2]','$tmpA[2]','$tmpB[1]','$tmpB[0]')";
push @array,$values;
if ($#array >= 10000) {
my @tmparray = splice @array,0,10000;
$sqlstr = join ",",@tmparray;
&addtomysql($sqlstr);
}
}
$sqlstr = join ",",@array;
&addtomysql($sqlstr);
sub addtomysql {
my $sql = shift;
my $dsn = "DBI:mysql:database=test;host=localhost;port=3306";
my $dbh = DBI->connect($dsn,'root','2010',{RaiseError=>1}) || die "$!\n";
my $insert_data = qq#INSERT INTO history VALUES $sql
ON DUPLICATE KEY UPDATE first_visit_date=least(first_visit_date,values(first_visit_date))
,last_visit=greatest(last_visit,values(last_visit)),ip=values(ip)
#;
my $sth=$dbh->prepare($insert_data) or die "$insert_data:$dbh->errstr\n";
$sth->execute();
$sth->finish();
$dbh->disconnect();
}

复制代码