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

• Как в Perl проверить текущую дату на условие 'последняя пятн...,arto, 13:20 , 22-Фев-07
  • Как в Perl проверить текущую дату на условие 'последняя пятн...,ALUM, 14:14 , 22-Фев-07
• Как в Perl проверить текущую дату на условие 'последняя пятн...,alexvs, 14:03 , 23-Фев-07
  • Как в Perl проверить текущую дату на условие 'последняя пятн...,alexvs, 14:29 , 23-Фев-07

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

perldoc -f localtime
perldoc Date::Calc

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

Хорошо конечно:

Nth_Weekday_of_Month_Year

но в июле пятниц может быть 4 или 5

так чтоли:
проверять 5-ю, если ошибка -> проверять 4-ю

>Как в 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 проверить текущую дату на условие "последняя пятница июля"?
>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"; } '