1. Куча / Говнокод #12614

    +133

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    drwxrwxrwx  1 wvxvw None       0 02-17 16:59 .svn
      -rw-rw-rw-  1 wvxvw None   22082 02-04 11:03 header.asp
      -rw-rw-rw-  1 wvxvw None   14331 02-04 11:02 header.utf.asp
      -rw-rw-rw-  1 wvxvw None   10333 02-04 11:01 header2.asp
      -rw-rw-rw-  1 wvxvw None   10368 02-04 11:02 header2_test.asp
      -rw-rw-rw-  1 wvxvw None   11825 02-04 11:02 header3.asp
      -rw-rw-rw-  1 wvxvw None   11734 02-04 11:03 header3_liran.asp
      -rw-rw-rw-  1 wvxvw None   11238 02-04 11:01 header3_old.asp
      -rw-rw-rw-  1 wvxvw None    7403 02-04 11:02 header3_ssl.asp
      -rw-rw-rw-  1 wvxvw None    9045 02-04 11:01 header3del.asp
      -rw-rw-rw-  1 wvxvw None   39451 02-04 11:02 header4.asp
      -rw-rw-rw-  1 wvxvw None   40224 02-04 11:02 header4_new.asp
      -rw-rw-rw-  1 wvxvw None   13348 02-04 11:02 header4rus.asp
      -rw-rw-rw-  1 wvxvw None     230 02-04 11:02 headers.asp
      -rw-rw-rw-  1 wvxvw None     208 02-06 09:37 headers.php

    Наследство.

    Запостил: wvxvw, 19 Февраля 2013

    Комментарии (18) RSS

    • Внезапно PHP!
      Ответить
      • Там еще где-то в недрах хранятся пару диэльэлей .Нетовских...

        Но вот вы будете смеятся, а я теперь зауважал ПХП, после знакомства с АСП классик написаном на ВиБиЭс, без единой функции: несколько мегабайт кода, ряды буков за рядами буков, но только If Else Then, только хардкор. Там даже человек на циклы свысока смотрел. Не признавал... такой мастер был...
        Ответить
        • Кстати, вот, еще, поспешу поделится моим диалогом с очевидцем, стоявшим, т.сказать у истоков:
          Вот понадобилось мне там какую-то страничку подправить, и телефонный номер вырезать из строки - долго мучался не мог понять, почему:
          Set re = new Regexp
          With re Begin
            .Global = True
            .Pattern = "[0-9]{10}"
            Join(.Execute(SomeString), ",")
          End With

          Падает с ошибкой.
          И когда я у него спросил, что за ...? Почему не работает? Он сморщися и сказал, что регулярки в ВиБиЭс - это для пижонов. Никто ими не пользуется. (Соответственно, find -name "*.asp" -exec grep -e 'Regexp' {} \; на примерно трех сотнях файлов выдает ноль совпадений).
          Ответить
          • Хм. Я не сразу бейсик признал. Сначала подумал sort of asp LINQ.
            И Begin выглядит явно лишним.
            Ответить
            • Ну я все еще овладеваю современными технологиями, вот и лажа случается иногда. With вроде не сразу появился... с новым оно всегда так.
              Ответить
            • With почти нигде не используется, КМК. Илитный бейсик проступает сразу.
              Ответить
              • >With почти нигде не используется
                Используется. Asp же. Тем более вы недооцениваете количество людей пишущих макросы в MS Office.
                Именно MS последние джва десятилетия вносит основную лепту в популяризацию сего языка.

                > With вроде не сразу появился
                Не менее 15 лет. Еще в 98 студии был.

                http://stackoverflow.com/questions/4174773/c-sharp-equivalent-for-visual-basic-keyword-with-end-with
                >You cannot do this in C#.
                Лол.
                Ответить
                • Но вот, что правда, МС полностью и окончательно положили на classique. И их документация по ВБС подразумевает практически исключительно WSH, и нихера не работает в IIS.
                  Кстати, на сколько я понимаю, желающих попробовать код в примере не найдется, поэтому обьясню (Begin - это просто опечатка вызваная хроническим недосыпанием и лапшой быстрого приготовления), а фишка в том, что Execute возвращает уникальный массив, не такой, как все остальные массивы, и поэтому Join() на нем обламывается. Но, как уже говорилось, в ВБС регулярными выражениями не пользуются, поэтому никому это и не мешает.
                  Ответить
          • Function RemoveQuotes2(s)
                dim i, s2
                s = trim(s)
            
                if len(s) = 0 then 
                    RemoveQuotes2 = ""
                    exit function
                end if
            
                s2 = ""
                for i = 1 to len(s)
                    ch = mid(s, i, 1)
                    if (asc(ch) < asc("0") or asc(ch) > asc("9")) and ch <> "," then
                        ch = mid(s, i, 1)
                    else
                        s2 = s2 & ch
                    end if
                next
                RemoveQuotes2 = s2
            End Function


            О, кстати, нашел, автор оттачивал мастерство. Вот, практически запилил таки регулярку.
            Ответить
    • >.svn
      Теперь понятно откуда такая нелюбовь к гиту.
      Ответить
      • ЭсВэЭн не мой, он там уже был, когда я пришел. Но Гит там ничего бы не исправил, даже, наоборот: вот видите, там есть такой файл header3_liran.asp - Лиран, это друган какой-то нашего мастера. Вот он видимо заглянул к нему на минутку и закодил еще один хидер. А был бы Гит? - там же все комьюнити собралось бы и поделилось нажитым.
        Ответить
    • Доводилось работать с похожим пиздецом, только там хидеров, к счастью, было меньше, всего лишь четыре. Код в них был абсолютно идентичный, однако все четыре использовались на разных страницах.
      Ответить
    • Я тоже такое видел много раз. Особенно в похапешных проектах. Если человек не умеет пользоваться VCS, ему ни svn, ни git не помогут.
      Ответить
    • vcs in vcs, and we need to go deeper...
      Ответить
    • Декоративный SVN...

      - Надо заюзать систему контроля версий!
      ... прошло 2 года ...
      - А, так тут оказывается надо было коммитить. А я думал оно само версии контролирует.
      Ответить
    • Хедеры на все случаи жизни
      Ответить
    • Говнокод%2012614_Копия(2).htm
      Ответить
    • vanished
      Ответить

    Добавить комментарий