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)