Исходное сообщение
"Как в Perl проверить текущую дату на условие 'последняя пятн..." Отправлено alexvs, 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"; } '

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>Как в 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"; } '
	Введите код, изображенный на картинке: