Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Не получили
письмо с кодом активации
?
1 час
1 день
1 неделя
1 месяц
Навсегда
Новости:
Начало
Помощь
Поиск
Календарь
Вход
Регистрация
Forum Webscript.Ru
»
Программирование
»
Perl
»
Ищу скрипт вывода тхт в зав. от времени
« предыдущая тема
следующая тема »
Печать
Страницы: [
1
]
Вниз
Автор
Тема: Ищу скрипт вывода тхт в зав. от времени (Прочитано 1666 раз)
0 Пользователей и 1 Гость просматривают эту тему.
Гость
Ищу скрипт вывода тхт в зав. от времени
«
:
27 Мая 2002, 10:29:16 »
Нужен ПЕРЛОВЫЙ скриптец для вывода текста из тхт в зависимости от времени. Т.е. В час дня выводится одна мессага, в два - другая.. и тд. ПЛИИЗ, посоветуйте, а то разбираться некогда, а скрипт оч нужен! Заранее спасибы
Записан
ESE
Фанат
Постоялец
Сообщений: 172
+0/-0
2
Ищу скрипт вывода тхт в зав. от времени
«
Ответ #1 :
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 (<
TEXT
>){
(
$hours
,
$text
)=
split
(/\\:\\:/);
if (
$hours
==
$hour
){print
$text
}}
close TEXT
;
а вот база text.txt
22::На горшок и спать!
6::С добрым утром страна!
13::Дата написания скрипта
14::Обед!!!
21::Смотрите новости на канале первом канале
Подключаай через SSi и наслаждайся
Записан
У програмиста две руки: левая и !левая
welcome
Печать
Страницы: [
1
]
Вверх
« предыдущая тема
следующая тема »
Forum Webscript.Ru
»
Программирование
»
Perl
»
Ищу скрипт вывода тхт в зав. от времени
Sitemap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28