ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sanyo Titaev 2:5070/66.1 25 Jun 2001 23:24:37
To : Nikolay Pichtin
Subject : Регистр файла
--------------------------------------------------------------------------------
24 Jun 29 12:02, Nikolay Pichtin wrote to Sanyo Titaev:
ST>> видимо все таки либо
ST>> !~ /\D/
ST>> либо
ST>> =~ /^[0-9]*$/
NP> Hе проходит ни то, ни другое не третье. Ловятся 23t или r45. :-(
NP> А их нужно игнорировать.
realy!?
#!/usr/bin/perl
$tt='23r';
$rr='r45';
$ff='045';
print "$tt digits only\n" if $tt =~ /^[0-9]*$/;
print "$rr digits only\n" if $rr =~ /^[0-9]*$/;
print "$ff digits only\n" if $ff =~ /^[0-9]*$/;
print "$tt digits only rev\n" if $tt !~ /\D/;
print "$rr digits only rev\n" if $rr !~ /\D/;
print "$ff digits only rev\n" if $ff !~ /\D/;
tit@lust: 889% ./test
045 digits only
045 digits only rev
Sanyo
--- GoldED/386 3.00.Beta5+
* Origin: -=The Bulls=- mailto:tit@irk.ru (2:5070/66.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
