|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Mike Salnikov 2:5006/18.18 22 Dec 2000 16:41:27
To : Alex Railyan
Subject : russian text problem
--------------------------------------------------------------------------------
Мой дед доложил, что в Четверг Декабрь 21 2000 19:10, Alex Railyan писал(а)
All:
AR> Как pешить пpоблемку с А-Я чтобы
AR> пахало ноpмально if ($name =~ /[^а-я]/i) {};
FAQ из RU.PERL
ДДД Тут начинается файл Windows Clipboard ДДД
Q: Как не учитывать регистр в русском тексте? С английским регекспы с ключом
i работают, а с русским - нет.
A: Hа UNIX'оподобных системах с корректной локализацией (FreeBSD, Linux на
glibc 2.1) это делается так:
use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, 'ru_RU.KOI8-R');
(можно еще выставить переменную окружения export LANG=ru_RU.KOI8-R
тогда будет достаточно вызова use locale; в Perl-скрипте)
Под Windows это делается так:
use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, "Russian_Russia.1251"); # или "Russian_Russia.866"
С трансляцией АКА tr/XX/xx/ даже не используя use locale; можно так сделать:
tr/\xB3\xE0-\xFF/\xA3\xC0-\xDF/; # для KOI8-r
или
tr/\xA8\xC0-\xDF/\xB8\xE0-\xFF/; # для Windows-1251
или
tr/\xF0\x80-\x9F/\xF1\xA0-\xAF\xE0-\xEF/; # для CP-866
ДДД А здесь Windows Clipboard кончается ДДД
WBR, mike.
--- Почаще заводите друзей! /И.Сусанин
* Origin: Hастоящая охота - это когда ему охота, и ей охота! (2:5006/18.18)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
russian text problem 