ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuriy Kaminskiy                      2:5020/517.21  19 Jul 2001  02:17:01
 To : Sergey Belov
 Subject : Re: Hемогy изобpести regexp-констpyкцию !!!
 -------------------------------------------------------------------------------- 
 

 
 >>>>> On 20:31 17/7/2001, Sergey Belov <2:5085/1.158> writes:
  >> -= Тут начинается файл 1.pl =-
  SB> use locale;
  SB>  $fio = "Сергей Белов";
  SB>   ($fio =~ m/[^А-Яа-я .]/) ?
 
  Юморист. Это не будет работать даже на cp1251 (буквы ёЁ забыл), не
 говоря уж о koi8-r или cp866.
  Правильный ответ - /[^[:alpha:] .]/ (для perl-5.6.0+) или
 use POSIX;
 $alpha = grep { isalpha($_) } map chr, 0..255;
 ...
  /[^$alpha .]/o
  для всего остального.
 -- 
 Yuriy Kaminskiy.
 --- Gnus v5.2.25/XEmacs 19.14
  * Origin: C2B8 59EA 497A D6F6 2640 0E49 D84A AADA EACE (2:5020/517.21@fidonet)
 
 

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