my $chkdate=q~'2009'~; my $nowywer=2008; my $curr_fromyyyy=undef; unless(($curr_fromyyyy = ${[$chkdate =~ m/^\'(\d{4})\'$/]}[0]) && $curr_fromyyyy < ($nowywer+2)){ print 'wrongyear'; exit; } print 'okyear:'.$curr_fromyyyy;
Похожие темы
- Форум [perl] Преобразовать q строку в qq строку (2012)
- Форум Скрипт «скачать всю музыку Цоя с сайта» (2010)
- Форум perl, DBI, получение информации о таблице MySQL (2005)
- Форум [perl] Интерпретирование строки как число (2010)
- Форум [Erlang] iconv (2009)
- Форум Помогите, пожалуйста, с питоном (2017)
- Форум [perl] fork, чтение потомками одного файла (2008)
- Форум perl FCGI::GetHandles (2009)
- Форум Не вижу ошибки, не заполняются переменные совпадения в Perl. (2015)
- Форум adonthell (2004)