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

Продолжим создание каталогизатора ссылок.

В одной из предыдущих статей мы создали две таблицы в базе данных на сервере MySql:

Кроме того, мы внесли в таблицу category данные, импортировав их из текстового файла. Во второй статье мы "одели" результат запроса из списка категорий в Web-интерфейс. Теперь нам нужно заполнить таблицу links, написать скрипт getlinks.pl для вывода списка ссылок с сообтветствующими категориями. Поступим с заполнением таблицы links также, как и с таблицей categories : импортируем ссылки из текстового файла. Текстовый файл:

"ProgramminG-программирование для всех!";"http://www.programming.dax.ru";1
"Corwell Design Studio";"http://www.cds.ru";1
"МТУ-Информ";"http://www.mtu.ru";1
"Студия Артемия Лебедева";"http://www.design.ru";1
"Каталог детских ресурсов";"http://www.kinder.ru/";1
"Быки и коровы";"http://bk.ru";2
"Мерен";"http://meren.ru/";2
"Все девочки";"http://www.allgirls.ru/";2
"Развлекательный сайт пива Доктор Дизель";"http://www.doctordizel.ru";2
"Анекдотов.net - максимум развлечений";"http://anekdotov.net";2
"Знакомства и Развлечения";"http://www.atis.kz/";2
"Чертовы Кулички";"http://www.kulichki.com/";2
"Драконье логово";"http://balrog.virtualave.net/";2
"Инфосити";"http://www.infocity.kiev.ua/";3
"Открытые системы";"http://www.opennet.ru/";3
"Масса полезной документации";"http://citforum.ru/";3
"Download.ru";http://www.download.ru/;4
"СОФТЛИСТ.РУ";http://www.softlist.ru/;4
"Темы.РУ";http://www.themes.ru/;4
"Altavista.com";"http://www.altavista.com/";5
"Яндекс.ру";"http://www.yandex.ru/";5
"Мета-ukraine";"http://meta-ukraine.com/";5
"Gala chat";"http://www.galachat.com";6
"Свежак для открытых систем";"http://freshmeat.net";7
"Sourceforge";"http://sourceforge.net";7
"Linuxguru";"http://www.linuxguru.com";7
"Для Web-разработчика";"http://www.stars.com";7
"PHP.net";"http://www.php.net";8
"Google groups";"http://groups.google.com";9
"Lenta.ru";"http://lenta.ru";10
"Корреспондент.нет";"http://www.korrespondent.net";10

Сохранить его , скажем в "c:\MyDocs\links.txt". Теперь нужно поместить его в таблицу links. Мы это уже делали с категориями, теперь запросом

LOAD DATA LOCAL INFILE /MyDocs/links.txt REPLACE
 INTO TABLE links FIELDS TERMINATED BY ; OPTIONALLY 
ENCLOSED BY \" LINES TERMINATED BY \r

заполним таблицу ссылок из текстового файла.

Запрос можно выполнить как из скрипта, так и из программы администрирования SQL сервера.

Теперь можно писать скрипт, который будет выводить список ссылок из выбранной категории. В предыдущей статье мы написли ссылку
print "<td>","<a href=\"$scr_name?page=$ln->{id}\">$ln->{name}</a>","</td></tr>\n";
Значит, в качестве параметров мы передаем скрипту номер (id) категории под именем page. Чтобы вывести ссылки только из данной категории, нужно выполнить SQL запрос

SELECT * FROM links WHERE category=id;

Скрипт будет выполнять следующие действия:

Подготовим HTML документ с необходимым нам оформлением, и в том месте, где должны быть ссылки вставим комментарий:

<!-- LINKS_HERE -->

Программа на языке Perl будет иметь следующий вид:

#!/usr/bin/perl
use DBI;
print "Content-type:text/html\n\n";
$temp=$ENV{QUERY_STRING};
# Разбор строки параметров
if ($temp ne ) {
@pairs=split(/&/,$temp);
foreach $item(@pairs) {
($key,$content)=split (/=/,$item,2); 
# Режем на название ключа и значение.
		
# Названия параметров и значения помещаем в хэш
$data{$key}=$content;
}
}
# проверяем, есть ли переменная с именем page
if ($data{page} ne undef) { # 
$qry = "SELECT * FROM links WHERE category=".$data{page}; #
my $dbh = DBI->connect("DBI:mysql:database=ваша_база_данных;
	host=адрес_сервера_mysql",
"логин", "пароль") || die $DBI::errstr;
# готовим запрос
my $result = $dbh->prepare($qry);
# и выполняем его
$result->execute();
# разбираем результат
print "<ul>\n";
while (my $ln = $result->fetchrow_hashref()) {
print "<li><a href=\"", $ln->{url},"\"
 target=\"_blank\">",$ln->{name},"</a></li>\n";
}
print "</ul>\n";
$dbh->disconnect();
print "<a href=javascript:history.back()>Предыдущая страница</a>\n";
}

В результате исполнения этого скрипта будет выведен список ссылок, оформленный как Немаркированный список, каждая ссылка будет открываться в новом окне.

Надеюсь, принцип работы данной программы понятен, и каждый волен ее дорабатывать на свой вкус. Я , например в рабочей версии каталогизатора (она, правда написана на PHP), еще добавил в таблицу links еще и описание ресурса, и счетчик, куда записывается каждый клик по ссылке.