Тема: Perl и БД
Показать сообщение отдельно
Старый 20.09.2002, 13:23
SPV вне форума Посмотреть профиль Отправить личное сообщение для SPV Найти все сообщения от SPV
  № 2  
SPV
 
Аватар для SPV

Регистрация: Jan 2000
Адрес: St-Petersburg
Сообщений: 1,229
Отправить сообщение для SPV с помощью ICQ
#!/user/bin/perl

use DBI;

$dbh = DBI->connect("DBI:mysql:mydatabase:localhost:3306","user","password");

...дальше пошли SQL запросы...

$dbh->disconnect;

Простые запросы, ответ которых нам не нужен, отправляем через do, например:
$dbh->do("INSERT INTO types(id) VALUES(0)");

Если ответ нужен (например выборка):
$sth = $dbh->prepare("SELECT * FROM types ORDER BY id");
$sth->execute;
__________________
Two beer or not two beer?...