Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−116
sub addOrUpdateContr {
my $doc = shift;
my( $id ) = $common->dbh->selectrow_array(
qq|SELECT contrid FROM... | );
$id = $id || 0;
if ( $id ) {
# вариант действий 1 ....
return $id;
}
if( !$id ) {
# вариант действий 2 (делает INSERT)....
return $id;
} else {
# вариант действий 3 ....
return $id;
}
return $id;
}
Просто красивая функция.
И то, что при названии addOrUpdateContr никакого апдэйта она не делает в ней далеко не самое замечательное.
Mihard,
26 Октября 2011
−110
Понтовый язык. Не полный по Тьюрингу...
alexoy,
20 Сентября 2011
−84
$sth = $dbh->prepare("select *,DATE(DTime),DATE(RDTime),MONTH(DTime),DAY(DTime),HOUR(DTime),MINUTE(DTime),UNIX_TIMESTAMP(DTime)
from tt_list where Type!=0 $where order $order");
...
if ($row->{'HOUR(DTime)'}<10) {$row->{'HOUR(DTime)'}="0$row->{'HOUR(DTime)'}"};
if ($row->{'MINUTE(DTime)'}<10) {$row->{'MINUTE(DTime)'}="0$row->{'MINUTE(DTime)'}"};
...
print "...<td width=60 nowrap><img src=../images/icon_clock.gif width=16 height=16 border=0>
$row->{'HOUR(DTime)'}:$row->{'MINUTE(DTime)'}</td>...";Выводим время...
Raynor,
07 Сентября 2011
−180
my $success=0;
my $error=0;
...
my $result_mail=MailUtils::attach_mail(-to=>$share_email,-message=>$message,-subject=>'Новый рецепт',-src_enc => $Cfg::encoding,-attach=>\@att) or die 'no';
unlink($file) if $result_mail;
$error=1 if !$result_mail;
$success=1 if $error==0;
print CGI::redirect($Cfg::url{root}."/woman/recipes/share/?success=$success&error=$error");Используем две переменных для статуса, видимо, для надёжности
Suor,
01 Сентября 2011
−179
#count pages
my $counter; my $pagescount = 0; my $pagesstr;
for (my $i = 0; $i <= $count; $i++)
{
if ($counter == POSTS_PER_PAGE)
{
my $a,$b; if ($pagescount == $pagenum) { $a = "["; $b = "]"; } else { $a = ""; $b = ""; }
$pagesstr = $pagesstr."$a<a href=\"wakaba.pl?task=mpanel&admin=$admin&page=$pagescount\">".($pagescount +1)."</a>$b" if ($pagescount == 0);
$pagesstr = $pagesstr.", $a<a href=\"wakaba.pl?task=mpanel&admin=$admin&page=$pagescount\">".($pagescount +1)."</a>$b" if ($pagescount != 0);
$pagescount++; $counter = 0;
} else { $counter++; }
}Вот такой веселый код пишут программисты дватиреча и на этом этот самый имиджборд и работает.
7ion,
05 Августа 2011
−84
my $cat='';
if ($q->param('category'))
{
my @originalCategory = $q->param('category')?$q->param('category'):undef;
$cat='and (';
my $arg;
foreach $arg(@originalCategory)
{
$cat.= '(ngf.category=';
$cat.= $arg;
$cat.= ') or ';
}
chop ($cat);chop ($cat);chop ($cat);chop ($cat);
$cat .= ')';
}формирование where для выборки по категориям указанных пользователем
BuHHu-nyX,
08 Июля 2011
−161
sub hex_to_string
{
my ($res, $str, $i) = ("", shift, 0);
$str =~ tr/A-Z/a-z/;
while ($i < length($str))
{
my $m = ord(substr($str, $i++, 1));
my $n = ord(substr($str, $i++, 1));
if ($m >= 48 && $m <= 57)
{
$m -= 48;
}
if ($m >= 97 && $m <= 102)
{
$m = 10 + $m - 97;
}
if ($n >= 48 && $n <= 57)
{
$n -= 48;
}
if ($n >= 97 && $n <= 102)
{
$n = 10 + $n - 97;
}
$res .= chr($m * 16 + $n);
}
$res = join("\n", split(/\r\n/, $res));
return $res;
}
Печально, что силу регулярок недооценивают.
sub hex_to_string($)
{
my $input_hex_data = shift;
my $result = $input_hex_data;
$result =~ s/([a-fA-F0-9][a-fA-F0-9])/chr(hex($1))/eg;
return $result;
}
antoha_by,
07 Июля 2011
−116
sub _check_sms_hash {
my $self = shift;
my $q = shift;
my $qs = $q->param('id').$q->param('phone').$q->param('trigger').$q->param('text').$q->param('date').$q->param('check').$self->_sicretsms();
my $hash = $self->{DB}->selectrow_array("SELECT MD5(?)", undef, $qs);
return 1 if $hash eq $q->param('sign');
return 0;
}Православное вычисление контрольной суммы.
Alikus,
01 Июля 2011
−116
#!/usr/bin/perl -w
@arr=<>;
@arr=reverse(@arr);
$ac=$#arr+1;
print "array size $ac\n";
@arr = sort { $a <=> $b } @arr;
while($ac>2){
$ac=$#arr+1;
print "size $ac";
print "reverse \n@arr\n\n";
if(!exists($arr[$ac])){
$eln=$ac-1;
print "\nDelete element $arr[$eln] $eln und $arr[$ac] $ac\n";
splice @arr, $ac-2,2;
};
};Скрипт на perl
AliceGoth,
26 Апреля 2011
−125
'aaa' =~ /a(?=)aa/;
'aaa' =~ /(?=)aaa/;
'aaa' =~ /aaa(?=)/;в ActiveState Perl 5.10.0 build 1003 неожиданно обнаружил грубую ошибку в регулярных выражениях. Конструкция (?=), которая означает "с этого места имеется пустой фрагмент текста" вообще не работает! То же относится к аналогичной конструкции "заглядывания назад" (?<=). Например, не находится соответствие в операторах и т.д. Я пришёл в недоумение, ведь это работало правильно в ActiveState Perl 5.8.7 и в более ранних версиях, которые были установлены у меня прежде.
BlackMonolit,
15 Апреля 2011
Follow us!