mysql

Хоть скрипт приведи!

/var/run/mysqld/mysqld.sock

#!/usr/bin/perl

use strict(); use DBI;

$host = 'xxx'; $username = 'aboadm'; $dbname = 'tes'; $hostname = 'localhost'; $dblogin = 'xxx'; $dbpass = 'xxx';

$dbh = DBI->connect("DBI:mysql:database=$dbname;host=$hostname","$dbl ogin","$dbpass",{'RaiseError' => 1});

$dbh->do("DROP TABLE adsl_abonents");

$dbh->do("CREATE TABLE adsl_abonents ( abonent_id INTEGER NOT NULL auto_increment PRIMARY KEY, number INTEGER NOT NULL, title VARCHAR(100), ip VARCHAR(20) NOT NULL)");

.....................

много строк

.....................

for ($i=2;$i<=$#line;$i++) { $_ = $line[$i];

if (m/Л\/сч\.+/gi) { ($tmp2, $face_schet2, $name2) = unpack($format_str2, $_); } elsif (m/\s(\d+)\.(\d+)\.(\d+)\.(\d+)\s/gi) { s/\s(\d+\.\d+\.\d+\.\d+)\s/$ip2=$1;/gie;

$ip2 = &trim($ip2);

$dbh->do("INSERT INTO adsl_abonents VALUES (".$dbh->quote('0').", # id ".$dbh->quote("$face_schet2").", # face_schet ".$dbh->quote("$name2").", # title ".$dbh->quote("$ip2").")"); # phone } }

$dbh->disconnect();

>$host = 'xxx'; $username = 'aboadm'; $dbname = 'tes'; $hostname = 'localhost'; $dblogin = 'xxx'; $dbpass = 'xxx';

если указывать localhost, то тогда к mysql приложения коннектятся через unix sockets, попробуй указать 127.0.0.1