ultrakiller
15-12-2009, 09:59
Вопрос такого рода:
Есть некая sql база .
Мне нужно при помощи perl скрипта добавить в таблицу той базы строчку.
Подскажите как это сделать, или ссылочку.
извините нашел ответ
http://forum.oszone.net/thread-144088.html
Но есть маленький глюк:
При запуске скрипта выдает ошибку :
"root" is not exported by the DBI module
Can't continue after import errors at script line 3
BEGIN failed--compilation aborted at script line 3.
#!/usr/bin/perl
use DBI;
$password = '*';
$user = 'root';
$data_source = 'DBI:mysql:servisUser';
$db = DBI->connect ($data_source, $user, $password)|| die "Cant do prepare: " . $db->errstr();
$sql = "insert into Users (`login`,`full_name`,`comment`,`Squid_on`,`Squid_pass`) values ('L','FIO','-','1','pas')";
$sth2 = $db->prepare ($sql) || die "Cannot do Insert: " . $db->errstr();
$sth2->execute;
$sth2->finish;
$db->disconnect();
Есть некая sql база .
Мне нужно при помощи perl скрипта добавить в таблицу той базы строчку.
Подскажите как это сделать, или ссылочку.
извините нашел ответ
http://forum.oszone.net/thread-144088.html
Но есть маленький глюк:
При запуске скрипта выдает ошибку :
"root" is not exported by the DBI module
Can't continue after import errors at script line 3
BEGIN failed--compilation aborted at script line 3.
#!/usr/bin/perl
use DBI;
$password = '*';
$user = 'root';
$data_source = 'DBI:mysql:servisUser';
$db = DBI->connect ($data_source, $user, $password)|| die "Cant do prepare: " . $db->errstr();
$sql = "insert into Users (`login`,`full_name`,`comment`,`Squid_on`,`Squid_pass`) values ('L','FIO','-','1','pas')";
$sth2 = $db->prepare ($sql) || die "Cannot do Insert: " . $db->errstr();
$sth2->execute;
$sth2->finish;
$db->disconnect();