1. Список говнокодов пользователя klem4

    Всего: 2

  2. 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)
  3. Perl / Говнокод #2418

    −109.5

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    sub title {
        my ($str, $len) = @_;
    
        while (1) {
            last if substr($str, $len, 1) eq ' ';
            ++$len;
        }
    
        return substr($str, 0, $len) . "...";
    }

    аналог Index.

    klem4, 15 Января 2010

    Комментарии (5)