1. Perl / Говнокод #2862

    −110.6

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    # АРТ
        return -1 if
                    !$project_id                    ||
                    length $name > 32               || !(length $name)       ||
                    length $password > 32           || !(length $password)   ||     #########->*
                    length $repassword > 32         || !(length $repassword) ||
                    $name =~ /[^\w\d]+/ig           ||
                    $password =~ /[^\w\d]+/ig       ||
                    $repassword =~ /[^\w\d]+/ig;

    Вдохновение, хули ...

    Запостил: klem4, 24 Марта 2010

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

    • =~ /[^\w\d]+/ig пропустит символ "_"

      return -1 if !$project_id;
      for ($name, $password, $repassword) {
         return -1 if length $_ > 32 || !(length $_) || !^[^\w\d]+$/i;
      }
      Ответить
      • return -1 if ! $project_id || grep { ! /\w{1,32}/ } ($name, $password, $repassword);
        Ответить
        • велик и могуч езыг перл! а кто не с нами - тот против нас!
          Ответить
    • \d и так входит в \w ( [A-Za-z0-9_] )
      Ответить
    • Когда ваш язык будет хоть на одну милионную хорош как я - я зайду к вам снова.
      Ответить
      • зы: Больше вы меня здесь не увидите. Никогда.
        Ответить
      • понимание "контекстности" приходит с годами. этот езыг - человечий. почти как русский
        Ответить

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