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

    −113.3

    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
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    while (@PASSWORDS){
    my $idx=0;
    my @trl;
    while (@PASSWORDS && ($idx <= $threads)){
    my $pass = shift (@PASSWORDS);
    chomp($pass);
    my $len = length($pass);
    if ($len > 5){
    foreach my $user (@USERS){
    chomp($user);
    foreach my $url (@URLS){
    chomp($url);
    $trl[$idx]=threads->create(\&brut, $idx, \$url, \$user, \$pass);
    $idx++;
    }
    }
    }
    undef($pass);
    }
    for(@trl){
    my $url = $_->join;
    if ($url){
    @URLS = grep(!$$url, @URLS);
    undef($$url);
    }
    }
    undef(@trl);
    }

    фегня.

    Запостил: xlt, 04 Декабря 2009

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

    • Наверно, не к автору поста, но всё же.. Это так и надо, что ни отступов, ни подсветки?
      Ответить
      • Да тут вообще можно такие перлы отмачивать...
        Ответить
        • А? Всмысле автор специально так каким-то образом сделал?
          Ответить
        • Perl`ы ?
          а вообще интересно почему подсветки нет.
          Ответить

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