1
Поиск, изготовление скриптов и прочее... / Разработать программу-сценарий для сайта с использованием Perl и mySQL
« : 17 Июля 2008, 16:20:47 »
Здравсвуйте. Кто может доработать или помочь чем нить ??
Вот скрипт( выводит из БД таблицу):
#!C:\\perl\\bin\\perl.exe
use DBI;
use CGI::Carp qw(fatalsToBrowser);
$db_name="phone";
$db_host="localhost";
$db_user="root";
$db_table="companies";
$db_password="";
print("Content-Type: text/html\\n\\n");
$dbh=DBI->connect("DBI:mysql:$db_name:$db_host",$db_user,$db_password);
$sth=$dbh->prepare("SELECT * FROM $db_table");
$sth->execute();
while(($row{name}, $row{address}, $row{tel}, $row{timework},) = $sth->fetchrow_array()) {
$row_str.="$row{name} $row{address} $row{tel} $row{timework} ";
}
print << "[END]";
Вывод данных
[END]
Нужно связать 2 таблицы по ключевым полям. Это что то типо у меня на страничке отображается одна таблица,я выбираю нужный раздел в ней и он меня переносит на другую таблицу ??
Вот скрипт( выводит из БД таблицу):
#!C:\\perl\\bin\\perl.exe
use DBI;
use CGI::Carp qw(fatalsToBrowser);
$db_name="phone";
$db_host="localhost";
$db_user="root";
$db_table="companies";
$db_password="";
print("Content-Type: text/html\\n\\n");
$dbh=DBI->connect("DBI:mysql:$db_name:$db_host",$db_user,$db_password);
$sth=$dbh->prepare("SELECT * FROM $db_table");
$sth->execute();
while(($row{name}, $row{address}, $row{tel}, $row{timework},) = $sth->fetchrow_array()) {
$row_str.="
}
print << "[END]";
[END]
Нужно связать 2 таблицы по ключевым полям. Это что то типо у меня на страничке отображается одна таблица,я выбираю нужный раздел в ней и он меня переносит на другую таблицу ??