ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 27 Aug 2002 11:45:02
To : Rostislav Podgornyi
Subject : Re: совпадение времени с периодом
--------------------------------------------------------------------------------
Rostislav Podgornyi <Rostislav.Podgornyi@f83.n4635.z2.fidonet.org> wrote:
> ю Привет, All!
>
> Имеем некий часовой пеpиод (с 23 до 7 часов):
> $begin=23; $end=7;
>
> Имеем текущее значение:
> $now=5;
>
> Как узнать входит ли $now в вышеуказанный пеpиод или нет? Что-то никак не
> могу догнать как это сделать.
Без знания какого это дня $begin и какого $end это есть невозможно.
За исключением случая, когда принимается постулат о том, что $begin
всегда заведомо меньше $end. Тогда:
if ($end >= $begin) {
print(($begin <= $now and $now <= 24) or (0 <= $now and $now <= $end) ?
"Matches\n" :
"Does not match\n");
} else {
print($begin <= $now and $now <= $end ? "Matches\n" : "Does not match\n");
}
Приблизительно так.
--
VP992-RIPE
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: совпадение времени с периодом 
