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

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

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

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

>
#/usr/bin/perl
# Используем библиотеку DBI
use DBI;
# Выведем заголовок типа данных
print "Content-type:text/html

";
# коннектимся к серверу 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!
");
@arr = ;
close FILE;
# ищем строку комментария
foreach $line(@arr) {
if ($line =~ "


 
Дата публикации: 10/12/2005
Прочитано: 1798 раз

Дополнительно на данную тему:

 
CGI интерфейс
 
Image Magick или фотошоп для perl
 
Спецификация языка Perl
 
Что такое CGI?
 
Маленькие хитрости твоего мыла
 
Особенности CGI-режиссуры
 
Особенности CGI-режиссуры (часть 2)
 
Запуск и отладка Perl-программ и CGI-скриптов под Windows
 
Делаем счетчик посещений на Perl
 
Работа с файлами и каталогами на Perl