ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : HB                                   2:5020/400     21 Feb 2001  21:22:29
 To : Dmitry Smolin
 Subject : Крайне полезно! часть 2.
 -------------------------------------------------------------------------------- 
 

 Wed Feb 21 2001 14:49, Dmitry Smolin wrote to Michael Korshunov:
 
  MK>> (abdula ibn said al ahmude -> Abdula ibn said al ahmude). Hо
  MK>> ведь требуется преобразование всех частей имени 
  MK>> (Abdula Ibn Said Al Ahmude). Как быть?
 
  DS> А подумать?
  DS> $name = "abDulA iBn saID aL aHmUde";
  DS> $name = join( ' ', map { ucfirst( lc ) } split( / /, $name ));
 
 Классно. Можно посылать на Obfuscated Perl Contest.
 
 $_ = "abDulA iBn saID aL aHmUde";
 s/(\w+)/\u\L$1/g;
 print;
 ----------------------------------------------------------------------
 Abdula Ibn Said Al Ahmude
 
 $_ = "мИхАиЛ еВГрафоВиЧ салТыКОв-щедрИH";
 s/(\w+)/\u\L$1/g;
 print;
 ----------------------------------------------------------------------
 Михаил Евграфович Салтыков-Щедрин
 
 а не "... Салтыков-щедрин", ксати. (при соотв. установке locale)
 
 \w+ можно заменить на все, что душе угодно.
 
 --- ifmail v.2.15dev5
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
 
 

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