|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alexander Reznikov 2:4600/220 09 Aug 2003 21:58:49 To : Konstantin Tokar Subject : Вопросы -------------------------------------------------------------------------------- Как-то Konstantin Tokar писал к Vadim Tzirulnicov, но я услышал и решил ответить : >> Как реализовать РегЭкспом ? >> >> В мыслях кружится что-то наподобие >> >> $index=~tr/ABC/[10][11][12]/d; >> >> , но верного решения разум не даёт :) KT> регекспом наверно можно, но мне кажется идеологически правильней KT> выдирать по одному символу из исходной строки и класть по два символа KT> в приёмную строку. По-моему, гораздо проще именно регекспом. И думать нечего. $index =~ s/[A-C]/ord($&)-ord('A')+10/ge; Оптимизировать по вкусу. Баюшки !! [ Черёмухин aka Гибкость TEAM ] [ UU9JЁКЛМH ] --- Дедушка GoldED+ 1.1.5-2003.06.24 (Win9x 4.10.2222 i586) * Origin: К ним присоединился гном по имени Рыжий Глот. (2:4600/220) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/133343f35449c.html, оценка из 5, голосов 10
|