|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 03 Jun 2001 12:53:33
To : Pavel Reich
Subject : Re: Заглавная бyква для pyсского шpифта
--------------------------------------------------------------------------------
Здравствуй, Pavel Reich.
В твоём письме от Sat, 02 Jun 2001 02:56:50 +0400 написано:
PR> Когда-то (Monday May 28 2001 11:11) Petr Zaytsew писал Zhuravlev S:
ZS>>> Hе подскажите как сделать из ..., нy допyстим, из слова в веpхнем
ZS>>> pегистpе - пеpвyю бyквy в веpхнем pегистpе, а следyющие в нижнем.
PZ>> навеpное, pазбить слово по массивам...
PR> Зачем? имхо
PR> $string=~s#([а-я])[а-я]+#uc($1)#g;
==== 8< [!perl -e 'for (0..255) { print chr($_) if chr($_) =~ /[а-я]/ }'] ====
абцдефгхийклмнопя
==== >8 [!perl -e 'for (0..255) { print chr($_) if chr($_) =~ /[а-я]/ }'] ====
P.S. koi8-r.
P.P.S. Смею тебя заверить, для windows-1251 твоя строка тоже захватывает не
все буквы.
P.P.P.S. И все равно ты решил не ту задачу... В исходной слово было в верхнем
регистре.
P.P.P.P.S. Так, на будущее - perldoc -f ucfirst.
--
Artem Chuprina E-mail: ran@ran.pp.ru
Programmer FIDO: 2:5020/371.32
Memonet Ltd. Phone: +7-095-284-1356
--- ifmail v.2.15dev5
* Origin: NTV Internet (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
