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

    −61

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    error_response("400 Bad request", "") unless (<> =~ /^GET\s+(.+?)\s+HTTP\/1\.1\r$/);                                                
    my $request_url = $1;                                                                                                               
    log_message "REQUEST $request_url";                                                                                                 
    get_bans() if ($request_url =~ /^\/bans\?auth=$authkey$/);                                                                          
    remove_ban($1) if ($request_url =~ /^\/bans\/(\d+\.\d+\.\d+\.\d+)\/remove\?auth=$authkey$/);                                        
    error_response("404 Not found", "");

    REST API через inetd (на этом серваке нету веб сервера, и ставить его влом). Новая жизнь старых технологий ;)

    bormand, 09 Сентября 2014

    Комментарии (14)
  2. Perl / Говнокод #16634

    +91

    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
    #!/usr/bin/perl
    use strict;
    sub ternary_switch {
    	my ($def,%exp) = @_;
    	my $result = $def;
    	for my $key (keys %exp) {
    		$result = '(' . $key . ')?(' . $exp{$key} . '):(' . $result . ')';
    	}
    	return $result;
    }
    my $def = ' (int)sum/0 /*assert*/ '; 
    my %exp = ( 
    	'quant==2' => ' round((sum)*pow(10.0,prec-1)*5.0)/pow(10.0,prec-1)/5.0 ',
    	'quant==5' => ' round((sum)*pow(10.0,prec-1)*2.0)/pow(10.0,prec-1)/2.0 ',
    	'quant==1' => ' round((sum)*pow(10.0,prec))/pow(10.0,prec) ',
    );
    my $result = ternary_switch($def,%exp);
    print $result . "\n";
    
    #define ROUND_QUANT(sum,prec,quant) (quant==5)?( round((sum)*pow(10.0,prec-1)*2.0)/pow(10.0,prec-1)/2.0 ):\
        ((quant==2)?( round((sum)*pow(10.0,prec-1)*5.0)/pow(10.0,prec-1)/5.0 ):\
        ((quant==1)?( round((sum)*pow(10.0,prec))/pow(10.0,prec) ):\
        ( (int)sum/0 /*assert*/ )))

    Округление с дробной точностью.
    Если бы я не прочитал на говнокоде что тернарники можно вкладывать, мне бы никогда это не пришло в голову

    overloop, 02 Сентября 2014

    Комментарии (20)
  3. Perl / Говнокод #16565

    −59

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    my @args = (
    	one => 1,
    	two => 2,
    	three => 3,
    );
    
    croak(q/'hashes' only/) if (@args & 1);
    
    my $args = join ';', map { join '=', @args[$_, $_ + 1] } grep { !($_ & 1) } 0 .. $#args;

    Осилил, блин...

    Elvenfighter, 19 Августа 2014

    Комментарии (4)
  4. Perl / Говнокод #16557

    −53

    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)
  5. Perl / Говнокод #16398

    −48

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    sub _handle_error {
        my ($self, $response) = @_;
    
        # TODO
    }

    Стиль программирования "ибо нефиг"

    Elvenfighter, 21 Июля 2014

    Комментарии (0)
  6. Perl / Говнокод #16294

    −43

    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
    $minfts = $maxfts = undef;
    $c=$l=$x=$z=0;
    while (($id, @a) = $sth->fetchrow_array) {
        $l++;
        next unless defined($t{$a[1]});
        $c++;
        $s{$id} = [$r, $id, @a];
        $x++ if $s{$id}{rc} && !$s{$id}{rm};
        $z++ if $s{$id}{rm};
        $s{$id}{t} = $t{$s{$id}{tid}};
        $s{$id}{bonuses} = 0;
        push @{$sid{$s{$id}{sid}}}, $id;
        ### PATCH3 ###
        $sid2pid{$s{$id}{sid}} = $s{$id}{id2};
        ### END PATH3 ###
        $minfts = $s{$id}{sd} if !defined($minfts) || $s{$id}{sd}<$minfts;
        $maxfts = $s{$id}{ed} if !defined($maxfts) || ($maxfts && $s{$id}{ed}>$maxfts) || !$s{$id}{ed};
    }
    $sth->finish;
    $l-=$c;

    Минимализм в название переменных

    ptaag, 09 Июля 2014

    Комментарии (14)
  7. Perl / Говнокод #16210

    −53

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    sub asd {
    	
    	print "WUT\n";
    	
    	return { 1 => 2 };
    }
    
    while( my ( $k, $v ) = each( %{ asd() } ) ) {
    	
    }

    http://ideone.com/EvoMvV

    kainwinterheart, 23 Июня 2014

    Комментарии (16)
  8. Perl / Говнокод #15973

    −49

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    my $query = "select * from client where <...>";
    ...
    $params{'first_name'} = $v_client[6];
    if (defined $v_client[11]) {
         $params{'address1'} = $v_client[11];
    }
    if (defined ($v_client[10])) {
      $params{'zip_code'} = $v_client[10];
    }

    No comments.

    bormand, 13 Мая 2014

    Комментарии (5)
  9. Perl / Говнокод #14557

    −51

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    if( my $row = &dbselectrow( $sql ) )
            {
                    if( $row -> { 'ofid' } == 9782 ) # moscow
                    {
                            if( $row -> { 'jt' } =~ /Начальник /i )
                            {
                                    &subscribe_to_management( $row -> { 'email' } );
                            }
                    }
            }

    Автоматическая подписка сотрудника руководящей должности на список рассылки для руководителей.

    kainwinterheart, 13 Февраля 2014

    Комментарии (1)
  10. Perl / Говнокод #14428

    +98

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    use Carp qw(carp cluck croak confess);
    
    carp "warning";
    cluck "warning with backtrace";
    croak "fatal error";
    confess "fatal error withbacktrace";

    Говорящие имена функций такие говорящие придирчивые, кудахтающие, каркающие, исповедывающиеся...

    bormand, 28 Января 2014

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