|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Bolotnov 2:5052/4.82 26 Jun 2001 21:38:55
To : Sanyo Titaev
Subject : Регистр файла
--------------------------------------------------------------------------------
27 Jun 01, Sanyo Titaev -> Alexander Bolotnov:
AB>>>> ($dir =~/[^0-9]/)? print "ne dopustimo" : print "dopustimo";
>>> !~ /\D/
>>> либо
>>> =~ /^[0-9]*$/
> а что он детектит, что имя файла состоит только из цифр? помоему
> как раз обратное, что стринг цифр не содержит...
он проверяет, содержит ли оно что-нить кроме цифр.
как бы тебе это показать?
@names = qw(1423 df423 g467h dffg 35s);
for(@names){
printf "'$_' %s letters\n", ($_ =~/[^0-9]/)? "contains" : "does not contain";
}
Alexander Bolotnov.
Scientia vincere tenebras.
---
* Origin: http://home.mari-el.ru/ls/ (2:5052/4.82)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
