|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Spartak Nyanyukin 2:5020/400 22 Feb 2001 14:13:06 To : All Subject : Re: Как сказать lc(), uc(), и им подобным работать с русскими символами -------------------------------------------------------------------------------- Nikolay Timpheev wrote: > Привет > perl5.0004 под Linux > ниодна из функций lc(); uc(); lcfirst(); ucfirst(); > не работает > с русскими символами > setlocale(LC_CTYPE,"koi8-r"); > не помогает > > Может кто делал? > Под Виндами помогает use locale, но когда я закидовал скрипт на Unix-сервера, то это на некоторых это не работало. Поэтому я написал маленькую подпрогу: use locale; sub lcase { $_[0] = lc($_[0]); #для латиницы и кирилицы $_[0] =~ s/А-Я/а-я/g; #для кирилицы, когда 1-я строка не помогает return $_[0]; } точно также можно описать другие свои функции, например: ucase(), ufcase() Может не изящно и в некоторых непригодно, зато работает. Шурик <alex-m@nm.ru> ет > > Может кто делал? > Под Виндами помогает use locale, но когда я закидовал скрипт на Unix-сервера, то это на некоторых это не работало. Поэтому я написал маленькую подпрогу: use locale; sub lcase { $_[0] = lc($_[0]); #для латиницы и кирилицы $_[0] =~ s/А-Я/а-я/g; #для кирилицы, когда 1-я строка не помогает return $_[0]; } точно также можно описать другие свои функции, например: ucase(), ufcase() Может не изящно и в некоторых непригодно, зато работает Shurik <aleks-m@nm.ru> --- ifmail v.2.15dev5 * Origin: ROSB (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/2080b5de54ac.html, оценка из 5, голосов 10
|