Perl

Вопрос

Как написать небольшой скрипт, чтобы при загрузке HTML в отдельном месте выводилось текстовое сообщение, типа совет дня, и как его вставить в HTML?

Ответ

Очень просто.

Создаешь текстовый файл, например
/var/www/html/sovet.txt

(При условии, что скрипт крутится на локалхосте, у тебя *nix+apache, дефолтовые настройки, если это не так, то поменяй пути к файлам).

Туда пишешь по одному совету на сторку. Дальше, собсна скрипт:

#!/usr/bin/perl -w print "Content-type:text/html\n\n"; # см. спецификацию http print "<html><body>"; # Дальше пишешь print и код своей хтмл-страницы до того # места где долен быть совет дня print "Совет дня:"; # вот здесь печатаем совет дня. open (SOVET, "/sovet.txt"); # здесь твоей корневой диекторией является /var/www/html, # когда будешь заливать скрипт на хостинг, посмотри в # справке путь к перлу и дерево каталогов @Sovet = <SOVET>; # Читаем открытый файл в массив $i = rand($#Sovet); # $i выбирается случайно в диапазоне от 0 до кол-ва # элементов в массиве $i = int $i; # отбрасываем дробную часть print $Sovet[$i]; # Печатаем элемент массива с индексом $i # Здесь печатаешь остаток твоего ХТМЛа print </body></html>;

Из конференции Expert_FAQ