|
|
|
новичок
участник
Last Login: 21.02.2005 14:46
Сообщ.: 1,
Visits: 12
|
|
ос: redhat 8.0
Установлены :
MySQL-4.0.20-0
perl-5.8.0-55
perl-DBI-1.40-5
perl-DBD-MySQL-2.9004-4
Есть скрипт:
#!/usr/bin/perl
$mysqluser="root"; # MySQL user name
$mysqlserv="localhost"; # MySQL server
$mysqlport="3306"; # MySQL server port
$mysqldbas="squidlog"; # MySQL database name
$mysqltabl="logger"; # MySQL database table
$backuplog="/var/log/squid/access.log"; # Backup log if couldnt connect to MySQL
$usehosts=0
use DBI;
use DBI::DBD;
my $dbh=DBI->connect("DBI:mysql:database=$mysqldbas;host=$mysqlserv;port=$mysqlport",$mysqluser,{AutoCommit=>1,RaiseError=>0,PrintError=>1})||&errorcon;
my $sth=$dbh->prepare("INSERT INTO logger(date,time,elapsed,code,\
status,bytes,url,userident,host)\
VALUES(?,?,?,?,?,?,?,?,?,?)");
.......
и т.д.
При запуске скрипта выходит такое сообщение:
"use" not allowed in expression at /home/user/squidmysql.pl line 10, at end of line
syntax error at /home/user/squidmysql.pl line 10, near "use DBI"
BEGIN not safe after errors--compilation aborted at /home/user/squidmysql.pl line 11.
Мож кто подскажет что за фигня?
|
|
|
|
|
Junior Member
участник
Last Login: 21.02.2005 13:26
Сообщ.: 24,
Visits: 265
|
|
А кто будет точку с запятой ставить в конце строки ?
$usehosts=0;
|
|
|
|