ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artur Penttinen                      2:5020/400     31 Oct 2000  09:59:49
 To : Misha Yuriev
 Subject : Re: regular expression
 -------------------------------------------------------------------------------- 
 

 Misha Yuriev <Misha.Yuriev@p12.f1581.n5020.z2.fidonet.org> wrote:
 
 MY> Hello All.
 MY> 
 MY> помогите плиз сделать простенькое выражение:
 MY> 
 MY> print "Input A: ";
 MY> $arg_1 = <STDIN>; chomp($arg_1);
 MY> if (($arg_1 =~ /[^0-9]/) || ($arg_1 eq "")) { <do smth> }
 
                 !~ /^[+-]?[0-9]+$/
 
   Или поизвращаться с таким: "$arg_1" != $arg_1
 
 MY> нужно определить ввод чисел. но условие срабатывает, если ввели
 MY> отрицательное число, а хотелось бы, что бы можно было ввести отрицательное
 MY> число, и на это условие не сработало. как нужно изменить
 MY> выражение? пробововал [^--9-9] - работает, но выглядит как-то криво...
 
            WBW, Artur
 
 -- 
 Пепел Санта-Клауса стучит в мое сердце !!!
 --- ifmail v.2.15dev5
  * Origin: Sonera Ltd. (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    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