По колено в коде — Говнокод.ру

Perl / Говнокод #2673

−155.2

1

%words = map { $_ => $hash{$_} } grep { !proper($_) } keys %words;

Фильтрация хэша - удаление элементов, чьи ключи не удовлетворяют некому условию.
Конечно же использование православного for для Perl-истов ниже собственного достоинства.... :X

Balza, 25 Февраля 2010

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

Java / Говнокод #2672

+72.9

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

public class CountUnique {
    //here objects will be stored
    private Object[] variants;
    //temporaly array to store copying variants
    private Object[] temparr;

    private int total = 0;

    public CountUnique() {}

    public boolean test(Object obj) {
        total++;
        boolean hasSame = false;
        if(variants == null) {
            variants = new Object[1];
            variants[0] = obj;
            hasSame = false;
        } else {
            for(int i = 0; i < variants.length; i++) {
                if(variants[i] == null) {} else {
                    if(variants[i].equals(obj)) {
                        hasSame = true;
                        break;
                    }
                }
            }

            if(hasSame == false) {
                temparr = variants;
                variants = new Object[temparr.length+1];
                for(int i = 0; i < temparr.length; i++) {
                    variants[i] = temparr[i];
                }

                variants[temparr.length] = obj;
                temparr = null;
            }
        }

        return hasSame;
    }

    public int unique() {
        if(variants == null) {
            return 0;
        } else return variants.length;
    }

    public int total() {
        return total;
    }

    public void free() {
        variants = null;
        temparr = null;
    }
}

некий класс для подсчета уникальных обьектов.
особенно умиляет функция test()

danilissimus, 25 Февраля 2010

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

PHP / Говнокод #2670

+157.7

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20

<?php 
//fsockopen, fputs.. 

$content = ""; 
$header = "not yet"; 

while( !feof( $pointer ) ) { 
    $line = fgets( $pointer, 128 ); 
    if( $line == "\r\n" && $header == "not yet" ) { 
        $header = "passed"; 
    } 
    if( $header == "passed" ) { 
        $content .= $line; 
    } 
} 

//fclose.. 

echo( substr( $content, 2 ) ); 
?>

По просьбе знакомого. Я в этом мало чего понимаю :)

Cr@ZyBoY, 25 Февраля 2010

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

PHP / Говнокод #2669

+161.8

1

$tpl->assign("L_OPENER", ($arr[7] == 40 || $arr[7] == 41 || $arr[7] == 42) ? 'opener.opener' : 'opener');

Вот так в один из шаблонов в зависимости от одного из параметров передаётся сами видите что. Почему так? Потому что бесчётное количество людей переделывали код. По мне, так это уже перебор.

nechin, 25 Февраля 2010

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

Perl / Говнокод #2668

−104.3

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22

# (S) (рекурсивного вызова) Генерирует контент слота рекурсивного дерева (с плюсиками). Возвращает ('RecursiveSlot'=>$textbuf) или ()
sub PlusTreeSlot {
        # (P) Путь к шаблону контентной ячейки
        # (P) ghm
        # (P) pid
        # (P) treename
        # (P) Уровень
        # (P) функция
        # (P) $ret

        return () if !exists($_[1]->{$_[2]}); # Не вкладываем ничего в слот если там ничего нет
        my $textbuf;
        foreach (@{$_[1]->{$_[2]}}){
                my $ret=&{$_[5]}($_,$_[4],ref($_[6])?dclone($_[6]):$_[6]) if $_[5];
                $textbuf.=${tmpl_prepare($_[0],{
                                PlusTreeSlot($_[0],$_[1],$_->{'id'},$_[3],($_[4]+1),$_[5],$ret),
                                %{$_},
                                'trname'=>$_[3],
                })};
        };
        return ('RecursiveSlot'=>$textbuf);
};

А вам тоже нравятся безымянные параметры?
А писать код без пробелов?
Кроме того, эта функция, вызывая себя рекурсивно, каждый раз заново открывает, читает, парсит и закрывает один и тот же файл шаблона.

ichesnokov, 25 Февраля 2010

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

JavaScript / Говнокод #2667

+163.2

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21

var idTa;        //id of the textarea (param to makeWhizzyWig)
//OTHER GLOBALS
var oW, sel, rng, papa, trail, ppw, wn=window; //Whizzy contentWindow, current sel, range, parent, DOM path, popwindow;
var sels='';
var buts=''; 
var vals=new Array();
var opts=new Array();
var dobut=new Array();

//...
w('<div style="width:'+taWidth+'" onmouseover="c(\''+idTa+'\')"><div id="CONTROLS'+idTa+'" class="wzCtrl" unselectable="on">');
//...
function c(id) {//set current whizzy
 if (id=="" || whizzies.join().indexOf(id)=='-1') return;
 if (id!=idTa){
  idTa=id;
  try {oW=o("whizzy"+id).contentWindow;} catch(e){alert('set current: '+id);}
  if (oW) {if(oW.focus)oW.focus();wn.status=oW.document.body.id; }
 }
} 
//...

Хтоническое порождение сумрачного гения
Все параметры редакторы лежат в global'ах. Но что делать если редакторов на странице несколько?
Правильно: mouse over!
http://www.unverse.net/wysiwyg.html

turdman, 25 Февраля 2010

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

Perl / Говнокод #2666

−251.4

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

my $sec;
my $min;
my $hour;
my $mday;
my $mon;
my $year;
my $wday;
my $yday;
my $isdst;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
$year=$year+1900;
$mon=$mon+1;
if ($mon<10)
{
$mon='0'.$mon;
}
if ($sec<10)
{
$sec='0'.$sec;
}
if ($min<10)
{
$min='0'.$min;
}
if ($hour<10)
{
$hour='0'.$hour;
}
if ($mday<10)
{
$mday='0'.$mday;
}

двузначные цифры в дате

Bracus, 25 Февраля 2010

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

PHP / Говнокод #2665

+152.9

1
2

<input type="submit" style="display: none;" /> 
<!-- Для того, чтобы сабмитилось по кл. enter -->

breathe, 25 Февраля 2010

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

PHP / Говнокод #2664

+163.3

1
2
3
4
5
6

$udate = mktime(
  0,0,0,
  $_REQUEST["udate"][3] . $_REQUEST["udate"][4],
  $_REQUEST["udate"][0] . $_REQUEST["udate"][1],
  $_REQUEST["udate"][6] . $_REQUEST["udate"][7] . $_REQUEST["udate"][8] . $_REQUEST["udate"][9]
);

Продолжение феерической истории о том, как один мальчег не знал регулярок. Да что там регулярок...

Johnny, 25 Февраля 2010

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

Говнокод: по колено в коде.