 |
|
|
ru.website- RU.WEBSITE ------------------------------------------------------------------- From : Alexander Kostiuchenko 2:463/672.419 27 Apr 2002 20:37:51 To : Valery Suraev Subject : (Perl vs PHP) (Was: (asp vs php) || (*nix vs NT)) -------------------------------------------------------------------------------- Как-то раз (а точнее 24 Apr 02 в 14:56) Valery Suraev писал(а) к Serge Shikov: VS> Выскажy пpедположение, что ты пpосто ожидал, что pешение бyдет VS> состоять из гоpаздо большего числа стpок. Вpядли был pасчёт на VS> поpазительный эффект сpавнения, обyсловленный экономией одной стpочки VS> в выpожденном слyчае. Угадал? В большинстве случаев решение действительно состоит из существенно большего кол-ва строк, в этот раз просто пример был не совсем удачный. За хорошими примерами - на Google за perl one-liners. Hу или вот пример... Есть массив строк @x. Hадо: 1) выбрать из него все cтроки, которые не начинаются с цифры 2) отсортировать в порядке: начинающиеся с _, другие, заканчивающиеся на _ 3) для начинающихся или заканчивающихся символом подчеркивания элементов вызвать методы с аналогичными именами обьекта $sys, для остальных - вызвать методы обьекта $def 4) присвоить @x массив результатов каждого вызова. Как долго обычным языком писать... на Perl - одна строка (75 байт): @x=map{(/(^_|_$)/?$sys:$def)->$_()}sort{$a=~/_$/?1:$a cmp$b}grep{!/^\d/}@x; Аналог на PHP можно ? зы: только не надо сразу переводить флейм в плоскость читабельности кода ;) Вышенаписанное вполне читабельно, если пробелов и \n доставить. Хотя компилиться и так может. -- mailto: random at info.net.ua //Александр * Origin: useless (2:463/672.419) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.website/40293ccb0c2c.html, оценка из 5, голосов 10
|
|
|