ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Dmitry Morozhnikov                   2:5020/400     21 Jan 2002  12:44:10
 To : Sergey Paradeev
 Subject : regexp
 -------------------------------------------------------------------------------- 
 

 On Mon, 21 Jan 2002 06:27:18 +0300, Sergey Paradeev wrote:
 
 SP>      Проверяю в форме значение элемента, должно иметь 12 цифр. И 
 SP> нужно типа 
 SP>      если (не 12 цифр) {
 SP>          print "Error <br>";
 SP>      }
 SP>      Пробовал так, не получается:
 SP>      $FORM{elem1}="123456789012";
 SP>      if(!$FORM{elem1}=~/\d\d\d\d\d\d\d\d\d\d\d\d/) {
 SP>          print "Error <br>";
 SP>      }
 
 if($FORM{'elem1'} !~ /^[0-9]{12}$/)
 {
 ....
 }
 
 ?
 
 -- 
 DM, Dmitry Morozhnikov, PGPKEY 0xB6C14D95
 --- ifmail v.2.15dev5
  * Origin: Demos online service (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