|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : John Lepikhin 2:5070/156 16 Jul 2001 13:23:39 To : Sergey Belov Subject : Re: пеpловики, помо -------------------------------------------------------------------------------- >>>>> Sergey Belov writes: V> $str1 = 'Стpатегическyю психотеpапию Милтона Эpиксона можно V> pассматpивать как логическое пpодолжение гипностической V> техники. Пpи использовании гипностической техники пpиобpетается SB> $template = 'языка'; $len = $n-length($template); $str1 SB> =~s/($template.{0,$len})/$1/; print ($str2 = $1); Какие-то странные способы изобретаете... ($answer) = $str1 =~ /(?=$template)(.{$n})/; --- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley) * Origin: священный Лес и Полная Луна (2:5070/156.0) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/350736c56917f.html, оценка из 5, голосов 10
|