Forum Webscript.Ru
Разное => Поиск, изготовление скриптов и прочее... => Тема начата: helpless от 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 таблицы по ключевым полям. Это что то типо у меня на страничке отображается одна таблица,я выбираю нужный раздел в ней и он меня переносит на другую таблицу ??
-
для начала -- use strict; в начало скрипта.
-
вообще непонятно на что нажать и что получить надо.
href я не нашел в выходе никакой
второго запроса к базе тоже...