Perl — Говнокод.ру

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

−55.2

1

return ('3');

Возвращаем код ошибки.

propanoid, 26 Августа 2009

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

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

−118.3

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

if ( $in{s} )
{

#	максимальная вложенность =3 - сформируем строку для чекбокса по-простому 
	my %ha = db_select_row [ 'id', 'title', 'parent_id' ], "catalog_section", "id=$in{s}			AND `object_id`=1";
	if (%ha)    																				          		    ¦
	{           																				          			¦
		$selected_only[ $ha{parent_id} ] = 'selected';    										          			
	}    																						              		¦
	     																						          			¦
	my %parent = db_select_row [ 'title', 'parent_id' ], "catalog_section",  "id=$ha{parent_id}		AND `object_id`=1";
	my %parent2 = db_select_row [ 'title', 'parent_id' ], "catalog_section", "id=$parent{parent_id}	AND `object_id`=1";
	my $only_title = $ha{title};

	$only_title = "$parent{title} &mdash; $only_title"  if %parent;
	$only_title = "$parent2{title} &mdash; $only_title" if %parent2;
	$only_this_cat_string = "";

	if ( %parent || %parent2 )
	{

		#%ha
		$only_this_category_text = qq~
			<span>
				<input type="checkbox" name="only_this_cat" id="only_this_cat" $checked_only onchange="checkSelect();">
				<label for="only_this_cat">Искать только в разделе &laquo;$only_title&raquo;</label>
			</span>~;

	}
}

по-простому

nolka4, 25 Августа 2009

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

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

−55.1

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

#Пример раз
	my %parse_hash = (
		$sub_dir       => $dir,
		$sub_style_dir => $style_dir,
		$sub_image_dir => $image_dir
	);


#Пример два
...
elsif ($event eq $Event_View_Par){
  print &ViewPar(%Query);
}
elsif ($event eq $Event_View_All){
  print &ViewPar(%Query);
}
elsif ($event eq $Event_View_Asset){
  print &ViewAsset(%Query);
}

Пример 1: В качестве ключей хэша переменные, которые определены в другом файле.
Пример 2: переменные $Event_View* определены в другом, используются только здесь и больше нигде

И так по всему коду
Задалбывает всё время переключаться alt-табом на файл, смотреть на определение переменных

Oleg_quadro, 20 Августа 2009

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

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

−109.3

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

$in{item_name}=CGI::unescape($in{item_name});
$in{item_number}=CGI::unescape($in{item_number});

#убиваем пробелы сначала, с конца и двойные
###
if($in{item_name}=~/^[\s]+([\s\S]+)/) {
  $in{item_name}=$1;
}
if($in{item_name}=~/([\s\S]+)[\s]+$/) {
  $in{item_name}=$1;
}

$in{item_name}=~s/[\s]{2,}/ /g;
  
if($in{item_number}=~/^[\s]+([\s\S]+)/) {
  $in{item_number}=$1;
}
if($in{item_number}=~/([\s\S]+)[\s]+$/) {
  $in{item_number}=$1;
}

$in{item_number}=~s/[\s]{2,}/ /g;
####

my @select_parent=db_select_list ['title','id'],"catalog_section","parent_id=0";



###########
my $only_this_category_text;
my $checked_only;
if($in{action} eq 'filter' and !$in{only_this_cat}) { $checked_only=''; } else {$checked_only="checked"; }

#############################
my $selected_list_item;
my $only_this_cat_string;
my @selected_only;
my $selected_parent;
#die $in{only_this_cat_s};


for(@select_parent)
{my $name="index_sel_$$_{id}";
 if($in{action} eq 'filter' and ($in{only_this_cat_s} eq $$_{id})) {$selected_only[$$_{id}]='selected'; } else { $selected_only[$$_{id}]=''; }
 if(!$in{only_this_cat_s})
 { if(!$in{action} and ($in{s} eq $$_{id})) {$selected_only[$$_{id}]='selected'; } else { $selected_only[$$_{id}]=''; }
 }else{ if($in{only_this_cat_s} eq $$_{id}){ $selected_only[$$_{id}]='selected';}}
}


############################


if($in{s}) {

#максимальная вложенность =3 - сформируем строку для чекбокса по-простому
  my %ha=db_select_row ['id','title','parent_id'],"catalog_section","id=$in{s}";
 if(%ha){$selected_only[$ha{parent_id}]='selected';}
	my %parent=db_select_row ['title','parent_id'],"catalog_section","id=$ha{parent_id}";
  my %parent2=db_select_row ['title','parent_id'],"catalog_section","id=$parent{parent_id}";	
	my $only_title=$ha{title};
	
	$only_title= "$parent{title} &mdash; $only_title" if %parent;
	$only_title= "$parent2{title} &mdash; $only_title" if %parent2;
  $only_this_cat_string=""; 
	if(%parent || %parent2) {#%ha
      $only_this_category_text=qq~
			<span>
			<input type="checkbox" name="only_this_cat" id="only_this_cat" $checked_only onchange="checkSelect();">
			<label for="only_this_cat">Искать только в разделе &laquo;$only_title&raquo;</label>
			</span>~;
			    	
	}
	}
	
	
$selected_list_item=qq~<select name="only_this_cat_s" id="only_this_cat_s"> <OPTION VALUE='none'>Все разделы</OPTION>~;
										for(@select_parent)
										{
$selected_list_item.=qq~<OPTION VALUE='$$_{id}' $selected_only[$$_{id}]~;
$selected_list_item.=qq~><label for="only_this_cat_s">$$_{title}</label>
                        </OPTION>~;
										
										}
$selected_list_item.=qq~</select></td>~;
$only_this_cat_string="Раздел каталога";

Оригинальное форматирование сохранено

nolka4, 17 Августа 2009

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

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

−117.2

01
02
03
04
05
06
07
08
09
10
11
12
13
14

my $cache_sql="SELECT `content`, `insertTime` FROM _cache WHERE `confid`='$$conf{confid}'";
...
    $cache_sql.=" AND `location`=".$self->{dbh}->quote($url);
...
    $cache_sql.=" AND `cgiparams`=".$self->{dbh}->quote($cgi_hash);
...
    $cache_sql.=" AND `callparams`=".$self->{dbh}->quote($callp_hash);
...
    $cache_sql.=" AND `userid`=".int($$params{userid});
...
    $cache_sql.=" AND `groupid`=".int($$params{groupid});

   my $replace_sql=$cache_sql;
   $replace_sql=~s/SELECT.*?FROM\s+_cache\s+WHERE/REPLACE INTO _cache SET/s;

perl+sql

poltora, 11 Августа 2009

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

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

−101

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

my $iref=$self->{ditems}->_get_item({itemid=>$weather_itemid, set=>'Weather', fields=>['MinT', 'MaxT', 'Precip', 'Cloud', 'twater'], prefix=>$$p{prefix}});
    if ($$iref{$$p{prefix}.'MinT'}<0 && $$iref{$$p{prefix}.'MaxT'}<=0) {
        my $tmp=$$iref{$$p{prefix}.'MaxT'};
        $$iref{$$p{prefix}.'MaxT'}=$$iref{$$p{prefix}.'MinT'};
        $$iref{$$p{prefix}.'MaxT'}=$tmp;
    };
    #warn $$iref{$$p{prefix}.'MinT'} if !$$iref{$$p{prefix}.'MinT'}>0;
    $$iref{$$p{prefix}.'T'}=int( ($$iref{$$p{prefix}.'MinT'}+$$iref{$$p{prefix}.'MaxT'})/2 );
    $$iref{$$p{prefix}.'T'}='+'.$$iref{$$p{prefix}.'T'} if $$iref{$$p{prefix}.'T'}>0;
    #$$iref{$$p{prefix}.'T'}=~s/\-/\&\#150\;/gs;
    $$iref{$$p{prefix}.'MinT'}='+'.$$iref{$$p{prefix}.'MinT'} if ($$iref{$$p{prefix}.'MinT'}>0);
    $$iref{$$p{prefix}.'MaxT'}='+'.$$iref{$$p{prefix}.'MaxT'} if ($$iref{$$p{prefix}.'MaxT'}>0);
    $$iref{$$p{prefix}.'twater'}='+'.$$iref{$$p{prefix}.'twater'} if ($$iref{$$p{prefix}.'twater'}>0);
    
    $$iref{$$p{prefix}.'time'}=$$p{daystart}+$$p{hour}*3600;

poltora, 11 Августа 2009

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

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

−55.2

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

#!/etc/Tivoli/bin/perl
##############################################################
#  Name: Default.cgi
#
#  Description: Generates translated Default HTML page
#               according to browser's language
#  TMF 4.1
#  Licensed Materials- Property of IBM
#  (C) Copyright IBM Corp. 2000. All Rights Reserved
#
#  US Government Users Restricted Rights- Use, duplication,
#  or disclosure restricted by GSA ADP Schedule Contract with
#  IBM Corp.
##############################################################

# wupddefhtml will bind all messages contained in default page
# accordingly ( LANG is set to the browser's locale )

$defaultPage=`wupddefhtml -out`;

# all links in the default page are absolute or relative to root
# so we need to fix them because we have changed location

$defaultPage =~ s|href=|href=../|g;
$defaultPage =~ s|//|/|g;

print("HTTP/1.0 200 OK
Contents-Type: text/html

");

print "$defaultPage";

строка print("HTTP/1.0 200 OK
явно говорит о глубоких знаниях протокола :))
(C) Copyright IBM Corp. - ИТ лидер - что еще сказать

pdp_dp, 11 Августа 2009

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

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

−150

1

print $string =~ /([http|ftp|https]+:\/\/[\w\/\.\?\&\=]+)/;

Типичный индусский регэксп (в данном случае ищет УРЛ в строчке)

guest, 25 Июля 2009

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

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

−147

01
02
03
04
05
06
07
08
09
10
11
12
13

if (!@ARGV){
    die ("Usage: palindrom.pl word\n");
}
$text = $ARGV[0];
if (length($text) < 4){
    die ("Error: Word must be not less than 4 leters\n");
}
if ($text =~ m/(.)(.). ?\2\1/){
    print "Result: Match\n";
}
else{
    print "Result: Not match\n";
}

Код как-бэ проверяет является ли слово палиндромом.
На самом деле проверяются только первые два символа с начала и конца. То есть строка "alla123h5vj3galla" является палиндромом.

guest, 23 Июля 2009