ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuriy Kaminskiy                      2:5020/517.21  30 Oct 2001  13:12:17
 To : Arkhipov Dmitriy
 Subject : Re: А-Яа-я
 -------------------------------------------------------------------------------- 
 

 
 >>>>> On 00:02 30/10/2001, avdmitriy@smtu.ru writes:
  AC> Где это ты видел кодировку, в которой русские буквы идут в
  AD> указанном порядке
  AC> (то есть все русские буквы и только они расположены от А до Я и от
  AC> а до я)?
  AD> А видел её я в DOS. ;о)
 
  Уж где-где, а в досе и намека на подобное свойство нет. Hint: что
 между буквой п и буквой р в cp866? cp1251 - уже ближе, но буква ЁЁЁёёё все
 равно не по-порядку.
 
  AD> Да, я уже понял ошибку. Должно быть так:
  AD> if(not($Text=~/^[A-Za-zЮ-Ъю-ъ]+$/))
  AD> { print 'Строка содержит недопустимые символы'; }
 
  Hет. Ты не понял свою ошибку. Правильный ответ -
  use locale;
  $Text !~ /[^[:alpha:]]/ (для perl-5.6.0+)
  или
  use POSIX;
  use locale;
  $alpha = join "", grep {isalpha($_)} map chr, 0..255
  $Text !~ /[^\Q$alpha\E]/o; (для perl <5.6.0)
 -- 
 Yuriy Kaminskiy.
 --- Gnus v5.2.25/XEmacs 19.14
  * Origin: none (2:5020/517.21@fidonet)
 
 

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