|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Dmitry Grebeniuk 2:469/105 25 Feb 2003 15:48:52 To : All Subject : тораретический вопрос -------------------------------------------------------------------------------- Тут у меня родился чисто теоретический вопрос. Любителям практичности можно дальше не читать, дабы не терять время. Как можно одной s///-командой сделать такое: при отсутствии определенного регулярного выражения (regexp) в начале строки вставить в начало нужные символы (string), к примеру? Варианты: $_ = "string" . $_ if ! /^regexp/; или даже $_ = (/^regexp/ ? "" : "string") . $_, но это не красиво :) Двумя s-командами это тоже без проблем делается (s/^/string/; s/^string(regexp)/$1/). А одной s-командой? :) bye --- GoldED+/LNX 1.1.5 * Origin: gds/FH (2:469/105) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/18413e5b6810.html, оценка из 5, голосов 10
|