Автор Тема: Разработать программу-сценарий для сайта с использованием Perl и mySQL  (Прочитано 5711 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн helpless

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 1
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Здравсвуйте. Кто может доработать или помочь чем нить ??
Вот скрипт( выводит из БД таблицу):

#!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]";

Вывод данных


$row_str



[END]

Нужно связать 2 таблицы по ключевым полям. Это что то типо у меня на страничке отображается одна таблица,я выбираю нужный раздел в ней и он меня переносит на другую таблицу ??

Оффлайн arto

  • Ветеран
  • *****
  • Сообщений: 699
  • +0/-0
  • 2
    • Просмотр профиля
для начала -- use strict; в начало скрипта.

Оффлайн Yaroslav

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 323
  • +0/-0
  • 0
    • Просмотр профиля
вообще непонятно на что нажать и что получить надо.
href я не нашел в выходе никакой
второго запроса к базе тоже...
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28