1. Список говнокодов пользователя santa_microbe

    Всего: 4

  2. PHP / Говнокод #14153

    +161

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    $login = $_COOKIE['login'];
  $pass = $_COOKIE['pass'];
  $sec = $_COOKIE['sec'];


  if ($pass == '')
  {
    header("Location: index.php");
    exit;
  }

    Проверка авторизации в административной части сайта

    santa_microbe, 28 Ноября 2013

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

  3. Perl / Говнокод #12203

    −165

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    my $data = $dbh->selectall_arrayref($sql, {Slice=>{}});
$self->_proccess_data($data);

sub _proccess_data {
    my $self = shift;
    my @array = @_;
    foreach (@array) {
        foreach my $s (@$_) {
            # some code here
        }
    }
}

    В метод _proccess_data передается arrayref наполненный hashref-ми.
    Этот arrayref заносится в массив @array, в итоге получаем массив из одного элемента, по которому проходим циклом.

    santa_microbe, 27 Ноября 2012

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

  4. Perl / Говнокод #9448

    −118

    1. 1
    my $res_id = $q->param('ordernumber')?$q->param('ordernumber'):$q->param('order_idp')?$q->param('order_idp'):undef

    santa_microbe, 16 Февраля 2012

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

  5. Perl / Говнокод #8784

    −121

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    if ($movie->{'genre'}=~m/\,+/)  {
                my @genre = split(',',$movie->{'genre'}) if $movie->{'genre'};
                my $genre = join(",", split(',', $movie->{'genre'}, 2));
                for (my $i = 0; $i <=1; $i++) {
                    $genre .= $genre[$i].',' if @genre;
                };
                $genre =~s/\,$//;
                $movie->{'genre'} = $genre if ($genre);
};

    На чем-то конкретном внимание заострять не буду.
    Код достаточно прост, но довольно неуклюж.

    santa_microbe, 09 Декабря 2011

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