ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igorr V Syurtukov                    2:450/199      03 Apr 2004  18:19:20
 To : All
 Subject : почему?
 -------------------------------------------------------------------------------- 
 

  Регэксповый вопрос: хочу в строке (на самом деле в ней имя мп3-шки) заменить
 кучу слов на их нижнерегистровый вариант. Делал так (старый вариант):
 
 $mp3=~s/( To | The | A  |...| An )/\L$1/ig;
 
  ...ну не заменяет второе вхождение, если идет, к примеру "... In The ..."! До
 первого отрабатывает и все тут! Почти точно помню, что раньше делало все
 нормально, а теперь упс! Бился головой об стенку, все перепробовал - не судьба.
 Извратился так:
 
 ===
 @array=("From","At","To","Of","On","The","For","An");
 foreach $tmp(@array){$mp3=~s/(?<!\-)(\s$tmp\s)/\L$1/ig;};
 ===
 
  смысл работы - все эти At, To и т.д., если они не первым словом после "-"
 стоят и окружены пробелами опустить в нижний регистр, невзирая на их текущий
 регистр (ведь может быть и From и FROM и FROm). Почему не работает верхняя
 замена в глобале?
 ---
  * Origin: [IVS] (2:450/199)
 
 

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

Тема:    Автор:    Дата:    почему?   Igorr V Syurtukov   03 Apr 2004 18:19:20   Re: почему?   Artem Chuprina   05 Apr 2004 17:57:29   почему?   Igorr V Syurtukov   05 Apr 2004 19:00:00   Re: почему?   Maxim Yemelyanov   06 Apr 2004 12:00:03   почему?   Igorr V Syurtukov   06 Apr 2004 19:44:24   Re: почему?   Artem Chuprina   06 Apr 2004 12:36:47   почему?   Igorr V Syurtukov   06 Apr 2004 19:45:16   Re: почему?   Artem Chuprina   07 Apr 2004 14:45:38   Re: почему?   Alexander P. Russkih   05 Apr 2004 20:36:52   Re: почему?   Alexander P. Russkih   06 Apr 2004 08:08:55