Народ, памагите!
как на perl при поиске заставить не различать большие,маленькие русские буквы в кодировке win-1251? пишу:
if ($line=~/$searchword/i)
c англицкими все ок - пофиг, а русские, только полное совпадение
>как на perl при поиске заставить
>не различать большие,маленькие русские буквы
>в кодировке win-1251? пишу:Нужно предварительно активировать CP1251 локаль.
Делается - это так:use POSIX;
use locale;
$loc = POSIX::setlocale( &POSIX::LC_ALL, "ru_RU.CP1251" );
print "Locale = $loc\n";Включение локали проверяется путем анализа выдаваемого в переменную $loc значения.
Если локаль включилась, переменная должна содержать название локали, т.е. ru_RU.CP1251 в нашем случае. Название CP1251 локали целиком зависит от твоей системы, у меня, например, вообще нет такой локали. См. /usr/share/locale/