Три статьи по работе с MySQL


Работа с MySql. Создание Web интерфейса


Работа с MySql. Создание Web интерфейса


Cухинин A., Webscript.ru


Весь смысл нашей разработки теряется, если мы ее не облачим в Web оболочку или иначе говоря, не создадим для нее Web интерфейс. В первую очередь, нас интересует список категорий. В предыдущей статье:"Работа с MySql. Введение."

был рассмотрен пример с SQL запросом, который выводит список категорий на консоль. Теперь нам надо вывести это все в HTML страницу.

Значит установим цель: вывести в две колонки список категорий, слегка облагородив его. Поступим так: изготовим любую HTML страницу с необходимым нам дизайном, и в то место, где нам нужен список категорий поставим комментарий :

<!-- CATEGORIES_HERE -->

Сей шаг мы делаем для того, чтобы скрипт не перегружать текст программы избыточным кодом. Итак, приступим:

  • Вывести заголовок типа данных;
  • Выполнить SQL запрос;
  • Разобрать результат;
  • Вставить результат в шаблон HTML страницы;

План действий составлен, можно кодировать.

>

#/usr/bin/perl # Используем библиотеку DBI

use DBI;

# Выведем заголовок типа данных

print "Content-type:text/html\n\n"; # коннектимся к серверу MySql

my $dbh = DBI->connect("DBI:mysql:database=ваша_база_данных;host=адрес_сервера_mysql", "логин", "пароль") || die $DBI::errstr; # готовим запрос

my $result = $dbh->prepare("SELECT * FROM category"); # и выполняем его

$result->execute(); # начинаем вывод в шаблон вместо комментария.

open FILE, "cat_template.html" || die ("Не могу открыть файл cat_template.html!\n"); @arr = <FILE>; close FILE; # ищем строку комментария

foreach $line(@arr) { if ($line =~ "<!-- CATEGORIES_HERE") { # если нашли,

print "<tr>\n"; # начинаем вывод таблицы

$bg = 1; # признак начатой строки таблицы

$col = 1; # номер текущей колонки

print "<table width = \"80%\">\n"; # разбор резульата SQL запроса

while (my $ln = $result->fetchrow_hashref()) { if ($bg == 1) { # начата строка таблицы




- Начало -  - Назад -  - Вперед -