ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     12 Feb 2003  11:54:27
 To : John Lepikhin
 Subject : Re: заглавные буквы
 -------------------------------------------------------------------------------- 
 

 John Lepikhin <John.Lepikhin@f156.n5070.z2.fidonet.org> wrote:
 
 > Будем здраве, Бояре!
 > 
 >        Сижу, балуюсь. А вот можно-ли красивее написать такое
 > преобразование (все слова строки с большой буквы):
 > 
 > $s = 'tHeRe\'S no pLAce liKe HOme';
 > $s =~ s/(^| )(\w)([^ ]*)/$1.uc($2).lc($3)/ge;
 
 $s =~ s/\b(\S+)\b/\u\L$1\E/g;
 
 -- 
 Vladimir A. Podgorny
 Adamant ltd. deputy director (technical)
 phone/fax: +380(44)5667722
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор