Яндекс цитирования
 

CGI/PERL : практика программирования

 

[ В начало раздела ]

Расширяем возможности «колонки новостей»

Здесь я представлю, как можно преобразовать простую колонку новостей, расширив ее возможности.

Новый скрипт будет поддерживать все новостные колонки на нашем сайте. Как этого добиться? Мы будем указывать скрипту идентификатор колонки новостей. Н-р, /cgi-bin/news2.pl?2

При этом файл новостей остается одним, но изменяется лишь его структура записи. Теперь она выглядит так: Код_группы>>Дата/Время>>Сообщение

Какие изменения необходимо сделать в скрипте?

  • 1. Прочитывать в переменную значение строки запроса (query string)
  • 2. Ввести счетчик на число выводимых в колонку новостей.
  • 3. Проверка на число уже выведенных записей.

Таким образом, скрипт представляется следующим образом. Описываем блок констант.

# константы
$HOME_DIR = "/home/dolgov/public_html/";
$SCRIPT_DIR = $HOME_DIR . "cgi-bin/";
$NEWS_DB = $SCRIPT_DIR . "news2.txt";
$LAST_RECORDS = 5;

Читаем строку запроса – идентификатор колонки новостей.
$qs = $ENV{'QUERY_STRING'};

Открываем базу новостей.
open(NEWS, $NEWS_DB) or die;
@news_base = <NEWS>;
close(NEWS);

Самое ядро скрипта – обработчик базы новостей и выбор оттуда записей, удовлетворяющих идентификатору колонки новостей.

В завершении – возврат данных в HTML-страницу.

#print "Content-type: text/html\n\n";  # убрать комментарий, если Unix
print $news_column;
exit;

Как Вы видите, этот скрипт немного изменился от первой версии, но имеет на порядок больше возможностей. Он включен в работу на моих сайтах.

Используйте и скажите о нем другим!

© Долгов С.В. 13.07.00

 

[ В начало раздела ]


 

 

Все для web-дизана!!! Бард-Путеводитель Много Всего CGI-Гид. Лучшие скрипты... WDH - WebDesignHelp - CGI, JAVA, APPLETS, TOP100! Раскрутка, увеличение посещаемости и индекса цитируемости в поисковых системах.

© 2000-2002 Долгов Сергей

dolgov_sergei@mail.ru

X