форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Как в Perl проверить текущую дату на условие 'последняя пятн..."

Сообщение от ALUM on 22-Фев-07, 10:19

Как в Perl проверить текущую дату на условие "последняя пятница июля"?

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Сообщения по теме

[Сортировка по времени, UBB]

1. "Как в Perl проверить текущую дату на условие 'последняя пятн..."

Сообщение от arto (??) on 22-Фев-07, 13:20

>Как в Perl проверить текущую дату на условие "последняя пятница июля"? perldoc -f localtime perldoc Date::Calc

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	2. "Как в Perl проверить текущую дату на условие 'последняя пятн..."
	Сообщение от ALUM on 22-Фев-07, 14:14
	>>Как в Perl проверить текущую дату на условие "последняя пятница июля"? > >perldoc -f localtime >perldoc Date::Calc Хорошо конечно: Nth_Weekday_of_Month_Year но в июле пятниц может быть 4 или 5 так чтоли: проверять 5-ю, если ошибка -> проверять 4-ю
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

3. "Как в Perl проверить текущую дату на условие 'последняя пятн..."

Сообщение от alexvs (??) on 23-Фев-07, 14:03

>Как в Perl проверить текущую дату на условие "последняя пятница июля"? perl -e '   if(     ((localtime())[2] == 5) and     ((localtime())[4] == 6) and     ((localtime(time()+60*60*24*7))[4] != (localtime())[4])    ) { print "Today is last Friday\n"; } '

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	4. "Как в Perl проверить текущую дату на условие 'последняя пятн..."
	Сообщение от alexvs (??) on 23-Фев-07, 14:29
	>>Как в Perl проверить текущую дату на условие "последняя пятница июля"? >perl -e ' >  if( >    ((localtime())[2] == 5) and >    ((localtime())[4] == 6) and >    ((localtime(time()+60*60*24*7))[4] != (localtime())[4]) >   ) > { print "Today is last Friday\n"; } ' Очепятка, правильно так: >perl -e '   if(     ((localtime())[6] == 5) and     ((localtime())[4] == 6) and     ((localtime(time()+60*60*24*7))[4] != (localtime())[4])    ) { print "Today is last Friday\n"; } '
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]