|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Misha Yuriev 2:5020/1581.12 30 Oct 2000 22:20:27
To : All
Subject : regular expression
--------------------------------------------------------------------------------
помогите плиз сделать простенькое выражение:
print "Input A: ";
$arg_1 = <STDIN>; chomp($arg_1);
if (($arg_1 =~ /[^0-9]/) || ($arg_1 eq "")) { <do smth> }
нужно определить ввод чисел. но условие срабатывает, если ввели отрицательное
число, а хотелось бы, что бы можно было ввести отрицательное число, и на это
условие не сработало. как нужно изменить выражение?
пробововал [^--9-9] - работает, но выглядит как-то криво...
Misha
--- GoldED+/W32 1.1.4.3
* Origin: In nothing we trust (2:5020/1581.12)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
