|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey Panin 10:5030/13.6 20 Nov 2003 10:26:22
To : All
Subject : MySQL+Perl
--------------------------------------------------------------------------------
Кто-нить делал чё-нить сабжевое?
Хотца сделать вьюер таблицы. Для этого пишу простенький скрипт для отображения
записи по её номеру.
Передаются ему параметры типа таких: ?table=моя_таблица&record=номер_записи
Т. е., получается каждый раз по новой приходиться коннектиться к бд. Hельзя ли
так сделать, чтобы законнектились один раз - и потом только данные считываем?
use mysql;
print "Content-type: text/html\n\n";
$record = 0;
@pairs = split(/&/, $ENV{"QUERY_STRING"});
foreach $pair (@pairs)
{
($name,$value)=split(/=/, $pair);
if ($name eq "table") { $table = $value; }
if ($name eq "record") { $record = $value; }
}
$dbh = Mysql->Connect("localhost","zt");
$sth = $dbh->Query("select * from $table");
$count = $sth->numrows;
print "<HTML>\n";
print "Запись ", $record + 1, " из $count:<BR>\n";
$sth->DataSeek($record);
%rec = $sth->FetchHash;
$sth->finish;
print "<table border=1 align=center width=75%>\n";
print "<tr><td>name</td><td>$rec{name}</td></tr>\n";
print "<tr><td>age</td><td>$rec{age}</td></tr>\n";
print "<tr><td>money</td><td>$rec{money}</td></tr>\n";
print "</table>\n<P>\n";
print "<CENTER>\n";
if ($record > 0) { print "<A HREF=\"/cgi-bin/showtable.pl?table=$table&record=",
$record - 1, "\">Предыдущая запись</A> | "; }
else { print "<B>Предыдущая запись</B> | "; }
if ($record < ($count - 1)) { print "<A
HREF=\"/cgi-bin/showtable.pl?table=$table&record=", $record + 1, "\">Следующая
запись</A> | "; }
else { print "<B>Следующая запись</B> | "; }
print "<A HREF=\"/mysql/query.html\">Поиск</A>\n";
print "</CENTER>";
print "</HTML>\n";
С наибестнейшими pегаpдзами и вишезами
Alexey <<http://freeprog.hotmail.ru>><<mailto:freeprog@hotmail.ru>>
... Возьми меня с собой, пуpпуpная pека
--- GoldED+/W32 np: Аpия - Мечты
* Origin: Я мылю, следовательно я сyществyю! (10:5030/13.6)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
MySQL+Perl |
Alexey Panin |
20 Nov 2003 10:26:22 |
 Re: MySQL+Perl |
Artem Chuprina |
21 Nov 2003 14:27:20 |
|
|
