ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Arkhipov Dmitriy                     2:5020/400     30 Oct 2001  01:02:16
 To : Artem Chuprina
 Subject : Re: А-Яа-я
 -------------------------------------------------------------------------------- 
 

 
   День добрый, Artem Chuprina!
 
 >>   Есть код:
 >>   
 >>   if(not($Text=~/^[A-Za-zА-Яа-я]+$/))
 >>   { print 'Строка содержит недопустимые символы'; }
 >> 
 >>   По сути он должен проверять содержит ли строка только буквы латинского и
 >> русского алфавита и если это не так выдавать предупреждающее сообщение. Hо
 >> он выдаёт это сообщение даже если $Text содержит русские буквы. В чём дело?
 AC> Где это ты видел кодировку, в которой русские буквы идут в указанном порядке
 AC> (то есть все русские буквы и только они расположены от А до Я и от а до я)?
 
   А видел её я в DOS. ;о)
 
   Да, я уже понял ошибку. Должно быть так:
   
   if(not($Text=~/^[A-Za-zЮ-Ъю-ъ]+$/))
   { print 'Строка содержит недопустимые символы'; }
 
   У меня кодировка KOI8-R.
   
   С уважением,
   Архипов Дмитрий.
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: State Marine Technical University of St. Petersburg (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    А-Яа-я   Arkhipov Dmitriy   28 Oct 2001 17:46:05   Re: А-Яа-я   Artem Chuprina   29 Oct 2001 21:04:38   Re: А-Яа-я   Arkhipov Dmitriy   30 Oct 2001 01:02:16   Re: А-Яа-я   Nikolay A. Panov   02 Nov 2001 16:13:19