ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : PROext                               2:5020/400     21 Jan 2002  12:39:59
 To : Sergey Paradeev
 Subject : Re: regexp
 -------------------------------------------------------------------------------- 
 

 >     Проверяю в форме значение элемента, должно иметь 12 цифр. И нужно типа
 >
 >     если (не 12 цифр) {
 >         print "Error <br>";
 >     }
 >
 >     Пробовал так, не получается:
 >
 >     $FORM{elem1}="123456789012";
 >     if(!$FORM{elem1}=~/\d\d\d\d\d\d\d\d\d\d\d\d/) {
 >         print "Error <br>";
 >     }
 
 print "error!" unless ($FORM{elem1} =~ /(\d){12}/);
 
  ---
         Best regards,    InSAn
      http://www.PROext.com
 --- ifmail v.2.15dev5
  * Origin: MTU-Intel ISP (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    regexp   Sergey Paradeev   21 Jan 2002 07:27:18   regexp   Dmitry Morozhnikov   21 Jan 2002 12:44:10   Re: regexp   PROext   21 Jan 2002 12:39:59