|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Serge Cherpatyuk 2:4625/44.39 24 May 2000 09:09:23 To : "Alexey Gogotz" Subject : Re: Опять о DBI :) -------------------------------------------------------------------------------- Alexey Gogotz <alexus@ems.chel.su> wrote: AG> собсно ситуация AG> use DBI; AG> print "Content-type: text/html \n\n"; AG> $dbh=DBI->connect_cached('DBI:ODBC:base1','root',''); AG> $sth=$dbh->prepare("select * from table1"); AG> $sth->execute; AG> while (@row=$sth->fetchrow_array) AG> { AG> print "@row \n"; AG> } AG> $sth->finish; AG> $dbh->disconnect; AG> при запуске из консоли все работает нормально, при запуске из браузера AG> не печатает. Где грабли? я так понял это попытка написать CGI? Во-первых в CGI, имхо, лучше использовать my: my $dbh=DBI->connect_cached('DBI:ODBC:base1','root',''); my $sth=$dbh->prepare("select * from table1"); Во-вторых одним выводом строки "Content-type: text/html \n\n" ты не отделаешся, нужно примянять либо use CGI qw/:standard/, либо конструкцию документ_здесь для вывода html'ных тэгов. Gray. --- ifmail v.2.14.KSI2 * Origin: RSTA of Vinnytsia (2:4625/44.39@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/161347ec1534f.html, оценка из 5, голосов 10
|