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;

    
      Ответ на:
      
          комментарий
        от balodja 
  
    
      Ответ на:
      
          комментарий
        от KRoN73 
  


    
      Ответ на:
      
          комментарий
        от KRoN73 
  
    
      Ответ на:
      
          комментарий
        от balodja 
  
    
      Ответ на:
      
          комментарий
        от SteelRat 
  
    
      Ответ на:
      
          комментарий
        от SteelRat 
  

    
      Ответ на:
      
          комментарий
        от true_admin 
  
    
      Ответ на:
      
          комментарий
        от DonkeyHot 
  
    
      Ответ на:
      
          комментарий
        от DonkeyHot 
  
    
      Ответ на:
      
          комментарий
        от true_admin 
  
    
      Ответ на:
      
          комментарий
        от SteelRat 
  
    
      Ответ на:
      
          комментарий
        от DonkeyHot 
  
    
      Ответ на:
      
          комментарий
        от true_admin 
  
    
      Ответ на:
      
          комментарий
        от true_admin 
  
    
      Ответ на:
      
          комментарий
        от tailgunner 
  
    
      Ответ на:
      
          комментарий
        от SteelRat 
  
    
      Ответ на:
      
          комментарий
        от mnt 
  
    
        Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
      
Похожие темы
- Форум [perl] Преобразовать q строку в qq строку (2012)
- Форум 2 часа писал строку (2007)
- Форум Скрипт «скачать всю музыку Цоя с сайта» (2010)
- Форум Питон, регулярка и начало строки (2016)
- Форум perl, DBI, получение информации о таблице MySQL (2005)
- Форум [perl] Интерпретирование строки как число (2010)
- Форум [Erlang] iconv (2009)
- Форум Помогите, пожалуйста, с питоном (2017)
- Форум [perl] fork, чтение потомками одного файла (2008)
- Форум perl FCGI::GetHandles (2009)