VPF::Код для вызова ближайших выходных дней

Simon

Дата 1.11.2004, 15:48 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Доброго дня всем.
Имеется скрипт простого календарика с днями месяца и ссылками с них на соответствующий репертуар. Подскажите пожалуйста, как примерно можно описАть функцию, чтобы она вызывала данные на ближайшие выходные? То есть чтобы в любой день, когда не ткни, она вызывала ближайшие субботу и воскресенье. От чего надо оттолкнуться, каков ее алгоритм? Никак не могу сообразить.

Заранее спасибо за ответы/советы.

Forza

Дата 1.11.2004, 18:52 (ссылка)

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

Загрузка ...

Шустрый

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

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

Почитай вот тут про функцию localtime(). Она для текущего времени возвращает массив, в котором присутствует № дня недели.

korob2001

Дата 2.11.2004, 16:37 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Попробуй этот код:

Код


#!/usr/bin/perl -w
use strict;
my $day_of_week = ( localtime )[6];
my ($time, $time2, $day);
$time = $time2 = time;
my $temp = $day_of_week;
while ( 1 ) {
   unless ( $temp == 6 ) {
       $temp++;
       $time += (60 * 60) * 24;
       next;
   }

   $time2 = ($time + (60 * 60) * 24)
         if ( $temp == 6 and $day_of_week != 0);
   last;
}

print "Суббота: " . scalar( localtime( $time ) ), "\n";
print "Воскресение: " . scalar( localtime( $time2 ) ), "\n";

Может он и не идеален, так как ниписал его без стронних модулей и в течении 5 минут. Но поправить его под свои нужды думаю больших усилий не потребуется.

Если хочешь заюзать модули, то читай доки:
perldoc Date::Calc
perldoc Date::Manip
Если они не установлены, то придётся установить ;).

Удачи.

Это сообщение отредактировал(а) korob2001 - 2.11.2004, 16:43

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

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Simon

Дата 2.11.2004, 16:46 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Спасибо, korob2001, все получилось :-)

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