ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     25 Feb 2003  17:40:21
 To : Dmitry Grebeniuk
 Subject : Re: тораретический вопрос
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Dmitry Grebeniuk.
 
 DG>   Тут у меня родился чисто теоретический вопрос.  Любителям практичности
 DG>   можно дальше не читать, дабы не терять время.
 
 DG>   Как можно одной s///-командой сделать такое: при отсутствии
 DG>   определенного регулярного выражения (regexp) в начале строки вставить в
 DG>   начало нужные символы (string), к примеру? Варианты: $_ = "string" . $_
 DG>   if ! /^regexp/; или даже $_ = (/^regexp/ ? "" : "string") . $_, но это
 DG>   не красиво :)  Двумя s-командами это тоже без проблем делается
 DG>   (s/^/string/; s/^string(regexp)/$1/). А одной s-командой?  :)
 
 s/^(?!regexp)/string/
 
 perldoc perlre
 /negative look-ahead
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    тораретический вопрос   Dmitry Grebeniuk   25 Feb 2003 15:48:52   Re: тораретический вопрос   Artem Chuprina   25 Feb 2003 17:40:21