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

    −153

    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
    sub is_consumer_registered {
    my ($type) = @_;
    my $out = qx(some-proprietary-tool --type $type);
    my $result = 0;

    my ($status) = $out =~ /$type\s+Status: ([^,]+),/;
    say '## DEBUG: status: ' . ($status // 'undef');
    if ($status && $status eq 'Component registered') {
        say '## DEBUG: result = 1';
        $result = 1;
    }

    return 0;
}

    ... об опечатках. Даже оставил свой дебаг специально :)

    Запостил: Elvenfighter, 18 Августа 2014

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

    • ava guest 19.08.2014 19:42 # −4

      Семь раз отмерь — один отрежь, guest!
      Ответить

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