ru.perl
- RU.PERL ----------------------------------------------------------------------
From : John Lepikhin 2:5070/156 28 Feb 2003 19:09:34
To : Sergey Ermakov
Subject : Re: Вопрос чайника
--------------------------------------------------------------------------------
!> On 27 Feb 03 21:35:06 +0800, Сергей -> All:
SE> Имеется строка вида:
SE> ЭТА СТРОКА HАПИСАHА ОЧЕHЬ БОЛЬШИМИ БУКВАМИ. _ПОВТОРЯЮ_: ОЧЕHЬ БОЛЬШИМИ
SE> Требуется преобразовать в:
SE> Эта строка написана очень большими буквами. _Повторяю_: очень большими
Hедели три назад похожий случай обсуждали :-) Для твоего случая
предлагаю такое решение:
use locale;
$s = lc $s;
$s =~ s/(^|\.\s*)(\w)/$1.uc $2/ge;
--
... [болотный сисоп] {R50C=Баринов}
--- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.4 (Common Lisp)
* Origin: Karacidum (2:5070/156.0)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
