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

    • ava guest 25.03.2010 11:17 # +0.4

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

      return -1 if !$project_id;
for ($name, $password, $repassword) {
   return -1 if length $_ > 32 || !(length $_) || !^[^\w\d]+$/i;
}
      Ответить

      • ava guest 01.04.2010 19:39 # +1

        return -1 if ! $project_id || grep { ! /\w{1,32}/ } ($name, $password, $repassword);
        Ответить

        • ava mac-t 07.06.2010 18:24 # +2

          велик и могуч езыг перл! а кто не с нами - тот против нас!
          Ответить

    • ava guest 25.03.2010 11:52 # +2.4

      \d и так входит в \w ( [A-Za-z0-9_] )
      Ответить

    • ava C++0x 23.04.2010 00:55 # −4

      Когда ваш язык будет хоть на одну милионную хорош как я - я зайду к вам снова.
      Ответить

      • ava C++0x 23.04.2010 00:56 # +3

        зы: Больше вы меня здесь не увидите. Никогда.
        Ответить

      • ava mac-t 07.06.2010 18:27 # +2

        понимание "контекстности" приходит с годами. этот езыг - человечий. почти как русский
        Ответить

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