Релиб / Веб-программирование / Perl / Perl + Mysql / Latest Posts

RE: Perl + Mysql

mrwel — Fri, 10 Dec 2004 09:00:00 GMT

Привет!
А так:
[code]
my $dbh = ... ;
my $rows = $dbh->selectall_arrayref('SELECT id, text FROM table1');
foreach my $row (@$rows){
print $row->[0]||0;# это поле id
print $row->[1]||'';# это поле text
}
$dbh->disconnect();

[/code]

RE: Perl + Mysql

23RUS — Thu, 02 Dec 2004 22:00:00 GMT

нужно название полей заключать в кавычки
вот так:

[code]my $sth = $dbh->prepare("select `id`, `text` from `table1`");[/code]

вот статья по DBI:
http://webdocs.ru/articles/article20/

RE: Perl + Mysql

manul — Fri, 25 Apr 2003 17:55:00 GMT

Не помогает. Дело не в этом. Методом тыка было выяснено, что он перестает вообще что-либо печатать после вызова
my $sth = $dbh->prepare("select id, text from table1");

т.е. в коде
#!/usr/bin/perl
print "Content-Type: text/html

";
print "test1<br>";
use DBI;
my $dbh = DBI->connect("DBI:mysql:dbname:host", "user", "password");
print "test2<br>";
my $sth = $dbh->prepare("select id, text from table1");
print "test3<br>";

"test3" не выводится.

RE: Perl + Mysql

sunex — Fri, 25 Apr 2003 17:35:00 GMT

вместо $res==$sth->fetchrow_hashref();
$res=$sth->fetchrow_hashref();

Perl + Mysql

manul — Fri, 25 Apr 2003 17:19:00 GMT

Приветствую.
Не могу вытащить записи из таблицы mysql. следующий код:
#!/usr/bin/perl
print "Content-Type: text/html

";
use DBI;
my $dbh = DBI->connect("DBI:mysql:dbname:host", "user", "password");
my $sth = $dbh->prepare("select id, text from table1");
$sth->execute;
$res==$sth->fetchrow_hashref();
$id=$res->{"id"};
$text=$res->{"text"};
$sth->finish;
$dbh->disconnect;
print $id;
print $text;

В результате получаю пустую страницу без ошибок и без информации. В таблице точно есть три записи. Помогите пожалуйста, я в перле новичек, приходится разбираться в оперативном порядке.