ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Leschenko                     2:5020/400     12 Feb 2003  11:40:35
 To : John Lepikhin
 Subject : Re: заглавные буквы
 -------------------------------------------------------------------------------- 
 

 John Lepikhin wrote:
 
  JL>         Сижу, балуюсь. А вот можно-ли красивее написать такое
  JL> преобразование (все слова строки с большой буквы):
  JL> 
  JL> $s = 'tHeRe\'S no pLAce liKe HOme';
  JL> $s =~ s/(^| )(\w)([^ ]*)/$1.uc($2).lc($3)/ge;
 
 $s = join(' ', map { ucfirst lc } split(/\s+/, $s));
 ?
 
 alien:/tmp>perl 1.pl
 tHeRe'S no pLAce liKe HOme
 There's No Place Like Home
 
 разьве что существенно количество пробелов между словами.
 
 -- 
 Best regards,
 Sergey
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Re: заглавные буквы   Sergey Leschenko   12 Feb 2003 11:40:35   Re: заглавные буквы   Dennis Krupenik   13 Feb 2003 16:12:45