VPF::Проверка интервала времени - Форум программистов

destby

Дата 19.4.2011, 10:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 24.2.2011

Репутация: нет
Всего: нет

Существует конфиг файл, в котором есть что-то вроде:

Код


timeInterval=00-23

то есть, скрипту разрешается выполнять некие действия в промежутке времени от 00:00 до 23:00
Сделал проверку вроде такой:

Код


my $timeInterval = # забираем из конфиг файла значение "00-23"
my $hour = localtime(time)[2];
my ( $start, $end ) = split '-', $timeInterval;
if ( $hour > $start and $hour < $end ) {
      # делаем что-то
}

Такое работает в случае, если интервал с 00 до 23, но если, к примеру, интервал будет с 22 до 00, то эта проверка не прокатит.
Подскажите, может быть можно как-то регекспами это побороть или каким другим способом?
Заранее благодарю.

arto

Дата 19.4.2011, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

$end eq "00" ? 1 : $hour < $end ?

perldoc Time::Interval

destby

Дата 19.4.2011, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 24.2.2011

Репутация: нет
Всего: нет

Цитата(arto @ 19.4.2011, 10:58)

$end eq "00" ? 1 : $hour < $end ?

perldoc Time::Interval

Не совсем понятно как пользоваться этим Time::Interval, какой из его методов юзать?

shamber

Дата 19.4.2011, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

Не туда влез smile

Это сообщение отредактировал(а) shamber - 19.4.2011, 13:51

arto

Дата 19.4.2011, 14:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

вычислите начало и конец интервала в секундах, и проверяйте попадание time() туда.

alezzz

Дата 19.4.2011, 14:19 (ссылка)

(нет голосов)

Загрузка ...

сплю...

Профиль
Группа: Участник
Сообщений: 499
Регистрация: 17.8.2009

Репутация: 1
Всего: 14

удалил...

arto уже это написал, только в другом сиде.

Это сообщение отредактировал(а) alezzz - 19.4.2011, 14:24

Pfailed

Дата 20.4.2011, 12:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39

В одном из проектов была похожая ситуация. Сначала был написан наивный варинат наподобии варианта топикстартера. Через пару дней баг всплыл наружу. Пришлось вооружиться ручкой и листочком и расписать все варианты. Больше, насколько знаю, жалоб не было.

Код


sub can_do($$) {
    my ($start, $end) = @_;
    
    my $now = (localtime)[2];
    my $denied = 0;
    
    if ($end == $start) {
        # no time limits
    }
    elsif ($end < $start) {
        # start in the one day, end in the next day
        if ($now < $start && $now > $end) {
            # current time not in the interval [start, 23:59] or [00:00, end]
            $denied = 1;
        }
    }
    elsif ($now < $start || $now > $end) {
        # start and end in the same day
        # current time not in the interval [start, end]
        $denied = 1;
    }
    
    return !$denied;
}


can_do(21, 6)
    or die "I can't";

--------------------

I'm on CPAN
I'm on github

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »