Forum Webscript.Ru

Программирование => Perl => Тема начата: от 27 Мая 2002, 10:29:16

Название: Ищу скрипт вывода тхт в зав. от времени
Отправлено: от 27 Мая 2002, 10:29:16

Нужен ПЕРЛОВЫЙ скриптец для вывода текста из тхт в зависимости от времени. Т.е. В час дня выводится одна мессага, в два - другая.. и тд. ПЛИИЗ, посоветуйте, а то разбираться некогда, а скрипт оч нужен! Заранее спасибы

Название: Ищу скрипт вывода тхт в зав. от времени
Отправлено: ESE от 28 Мая 2002, 13:30:41

Вот сам исходник

#!/usr/bin/perl
print "Content-type: text/html\\n\\n";
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
open TEXT,"text.txt";#файл с текстами (формат час::текст)
while (){
($hours,$text)=split(/\\:\\:/);
if ($hours==$hour){print $text}}
close TEXT;

а вот база text.txt
22::На горшок и спать!
6::С добрым утром страна!
13::Дата написания скрипта :)
14::Обед!!!
21::Смотрите новости на канале первом канале

Подключаай через SSi  и наслаждайся ;)