|
![]() |
Архивированная нить - только для чтения!
Пред. тема | След. тема | ||
Форумы
![]() | |||
---|---|---|---|
Изначальное сообщение | [Проследить за развитием треда] |
"Perl + MySQL" | |
Сообщение от Peter Teslenko ![]() ![]() ![]() | |
Что такое prepare.al?<br>Пытаюсь из скрипта на perl получить данные из <br>MySQL и при исполнении скрипта получаю auto/prepare.al<br>not found :( отсюда вопрос:<br>Что такое prepare.al и что такое *.al вообще?<br>Вот кусок скрипта<br>====cut====<br>$dbh = DBI->connect("DBI:mysql:pyramid:$hostname", $dbusername, $dbpassword);<br>$sth = $dbh->do($SQL);<br>$sth=DBI->prepare($SQL);<br>$sth->execute or die "executing: ", $sth->errstr;<br>====cut====<br> | |
Рекомендовать в FAQ | Cообщить модератору | Наверх |
Оглавление |
|
Индекс форумов | Темы | Пред. тема | След. тема |
Сообщения по теме |
1. "Re: Perl + MySQL" | |
Сообщение от Eugene ![]() ![]() ![]() | |
я бы сделал так<br>use DBI;<br>$dbh = DBI->connect('DBI:mysql:dbname:mysqlserver.domain.com:3306',<br> 'user', 'password',<br> { RaiseError => 1, AutoCommit => 1 })<p>$sth = $dbh->prepare("SELECT * FROM $table WHERE что-то там");<br>$sth->execute;<br>while ((@row) = $sth->fetchrow_array) {<br> print join(", ", map {defined $_ ? $_ : "(null)"} @row), "\n";<br>}<br>$sth->finish;<br>$dbh->disconnect;<br>а вообще если у тебя стоит DBD:MySQL соответственно есть<br>дока так что RTFM !!!<br> | |
Рекомендовать в FAQ | Cообщить модератору | Наверх |
Удалить |
Индекс форумов | Темы | Пред. тема | След. тема |
Закладки на сайте Проследить за страницей |
Created 1996-2025 by Maxim Chirkov Добавить, Поддержать, Вебмастеру |