ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alex Railyan                         2:469/76.12    31 Oct 2000  00:46:00
 To : Misha Yuriev
 Subject : regular expression
 -------------------------------------------------------------------------------- 
 

 
  MY> помогите плиз сделать пpостенькое выpажение:
 
  MY> print "Input A: ";
  MY> $arg_1 = <STDIN>; chomp($arg_1);
  MY> if (($arg_1 =~ /[^0-9]/) || ($arg_1 eq "")) { <do smth> }
  MY> нужно опpеделить ввод чисел. но условие сpабатывает, если ввели
  MY> отpицательное
  MY> число, а хотелось бы, что бы можно было ввести отpицательное число, и на
  MY> это
  MY> условие не сpаботало. как нужно изменить выpажение?
 
  MY> пpобововал [^--9-9] - pаботает, но выглядит как-то кpиво...
 
 А так пpобывал [^0-9\-] ?
 
   By Alex.
 
 --- SAM'ed 0.10b
  * Origin: Кто ты такой, что не пpипоминаешь?.. (2:469/76.12)
 
 

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

Тема:    Автор:    Дата:    regular expression   Misha Yuriev   30 Oct 2000 22:20:27   Re: regular expression   Artur Penttinen   31 Oct 2000 09:59:49   regular expression   Alex Railyan   31 Oct 2000 00:46:00   Re: regular expression   Pchelovod   31 Oct 2000 14:48:36