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

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

 

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

Создание колонки новостей

Перефразируя известную фразу, можно сказать, что все самое полезное – просто!

Это относится как к разнообразнейшим счетчикам, так и колонкам новостей.

Идея скриптов колонок новостей – это автоматическая обработка записей в файле новостей и вывод их пользователю без изменения HTML-страницы. Конечно, такой скрипт следует использовать на WEB-серверах, поддерживающих расширение SSI (Server Side Includes).

Рассмотрим же теперь как быстро создать гибкий скрипт колонки новостей. В файле новостей каждая информационная запись представляется в виде: дата>>сообщение Пусть даже Вам известен полный путь к файлу новостей, лучше будет описать его в конфигурационной части скрипта (так мы создадим гибкость скрипта).

$HOME_DIR = "d:\\labirint\\dolgov\\";
$SCRIPT_DIR = $HOME_DIR . "cgi-bin/";
$NEWS_DB = $SCRIPT_DIR . "news.txt";  # файл новостей
$LAST_RECORDS = 5; # число выводимых записей

Теперь открываем файл новостей и прочитываем все записи.

open(NEWS, $NEWS_DB) or die;
@news_base = <NEWS>;
close(NEWS);

Начиная с последней записи, показываем ровно $LAST_RECORDS записей.

$news_column = "";
$total = scalar(@news_base);
$i=$total;
while($i > ($total-$LAST_RECORDS)) {
  $i--;
  $s = $news_base[$i];
  ($date,$message) = split(/>>/,$s);
  $news_column .= "<b>$date</b><br>$message<br>\n";
}

Осталось вывести полученную колонку $news_column пользователю:

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

Подключается этот скрипт следующим образом. для UNIX: <!--#include virtual=”/cgi-bin/news.pl”--> для Windows: <!--#exec cgi=”/cgi-bin/news.pl”-->

Отмечу, что этот скрипт колонки новостей отлично работает на всех моих сайтах.

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

 

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


 

 

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

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

dolgov_sergei@mail.ru

X