В выборку не попадают все поля из запроса Sphinx. Почему?

Это понятно, просто удивился такому поведению. Пока дальше SQL необходимости нет, был интересен исключительно этот момент тем, либо я чего-то не понимаю, либо действительно есть какие-то условия.

Кстати, id - уникальный ключ + инкримент возвращается без описания его в sql_field/attr.

Кто-нибудь настраивал chillispot? Или аналог?

На базе Unifi начинал делать, но в итоге сделал только для неавторизованных - промо-страница и все. Дальше этого разработка не пошла, ибо не было уже того энтузиазма. А вообще, вроде как, там достаточно широкие возможности.

Как вы бы организовали хранение видео и аудиофайлов?

Кирилл Лобанов: какой у вас трафик предполагаемый и действительный? Там же можно посчитать.

Кто имеет опыт в оптимизации Perl скриптов?

pcdesign: передавал одного и того же родителя, вместо дочерних. Все, теперь работает как надо и быстро :) Спасибо!

Кто имеет опыт в оптимизации Perl скриптов?

pcdesign:
Довёл до ума, код работает - но в рекурсии - утечка. Похоже дело в типах данных и передаче?

sub _dopsecArr {

  my ($parent, $razdel) = @_ ;

  my $items = $razdel->{$parent};
  %items = %{ $items };
  foreach my $n (keys %items ) {
    @item = @{$items->{$n}};
    $seclist .= qq[<option value='@item[0]'>@item[1]</option>];
    _dopsecArr(@item[2], $razdel);
  }
}

Кто имеет опыт в оптимизации Perl скриптов?

pcdesign: да, спасибо.
Получил теперь утечку в памяти.

sub _dopsec {
  $selectp = 'SELECT id, name, parent FROM razdel WHERE visible = 0 ORDER BY id';
  my $sp = $dbh->prepare($selectp);
  $sp->execute;

  my $razdel;

  while (@rp = $sp->fetchrow_array){
    my $rp = \@rp;
    push @{$razdel->{$rp[2]}->{$rp[0]}}, @rp;
  }
  $sp->finish;

  _dopsecArr(0, $razdel);

}

sub _dopsecArr {

  my ($parent, $razdel) = @_ ;

  foreach my $n ({$razdel->{$parent}}){
    $seclist .= qq[<option value='$n[0]'>$n[1]</option>];
    _dopsecArr($n[2], $razdel);
  }
}

Кто имеет опыт в оптимизации Perl скриптов?

pcdesign: нашел Dumper.
Но все равно есть некоторые непонятки.

while (@rp = $sp->fetchrow_array){
    my $rp = \@rp;
    push @{$razdel->{$rp[2]}}, @rp;
  }

Я думал, что получу структуру:

Array( 0 => array(
key1 => array(id, name, parent),
key2 => array(id, name, parent),
), 141 => array(
keyX => array(id, name, parent),
keyY => array(id, name, parent),
),

Но, похоже перл этого не делает. Разбираюсь дальше

Кто имеет опыт в оптимизации Perl скриптов?

pcdesign , поправьте, пожалуйста, меня и мой код. Никак работать не хочет.

sub _dopsec {
  $selectp = 'SELECT id, name, parent FROM razdel WHERE visible = 0 ORDER BY id';
  my $sp = $dbh->prepare($selectp);
  $sp->execute;

  my @razdel;

  while (@rp = $sp->fetchrow_array){
    push @{$razdel->{$rp[2]}}, $rp;
  }

  _dopsecArr(0, $razdel);

  $sp->finish;

}

sub _dopsecArr {
  (my $razdel, my $arr) = @_ ;
  foreach my $n (@{$arr->{$razdel}}){
    $seclist .= qq[<option value='$n[0]'>$n[1]</option>];
    _dopsecArr($n[2], $arr);
  }
}

Кто имеет опыт в оптимизации Perl скриптов?

pcdesign: так и есть. Поэтому я в своем приемре и привел код, где мы получаем все записи
$comments = Db::getCommentsByArticle($id);
А потом уже играемся с ними.

Кто имеет опыт в оптимизации Perl скриптов?

pcdesign: да, об этом как раз и речь. Я слабо представляю как это реализуется на перл, поэтому и представил пример php-кода.
Ваш комментарий вижу, сейчас на основе него постараюсь сделать нужное. Спасибо!

Кто имеет опыт в оптимизации Perl скриптов?

pcdesign: я как раз это и хочу сделать. Но не знаю (не получается пока что) как на perl'e написать нужную конструкцию - поэтому и привел пример php-кода, который желательно описать на perl.

Кто имеет опыт в оптимизации Perl скриптов?

pcdesign: Простите, не совсем понял о чем вы. Оба запроса - это оба запроса к одной и той же таблице. Сначала он выбирает корневые комментарии и в каждой итерации - дочерние.
Моя идея была в том - чтобы выбрать все комментарии разом и на уровне приложения уже строить дерево, не создавай каждый раз sql-запрос.

Кто имеет опыт в оптимизации Perl скриптов?

FanatPHP: если честно, я пытался профилировать perl скрипт, но закончилось все это неудачей.
То что это, одна из проблем - в этом я уверен.
В среднем комментариев по 100. И судя по результатам общения с поддержкой хостинга и своему небольшому опыту - узкое место база данных. Индексы, где это необходимо - имеются.

Кто имеет опыт в оптимизации Perl скриптов?

pcdesign: я надеялся, что кто-нибудь эту же конструкцию опишет на Perl'e. Обновил пост.

Bug bounty в Neteller?

DaNHell: если у вас есть аккаунт Neteller'a - то думаю можно,

Bug bounty в Neteller?

Ну у них как таковой программы баунти вообще нету.

Путь в быдлокодеры или как стать программистом с 0?

Согласен, что верстальщик - не программист. Но работа это далеко не тупая.
Вы вообще верстали когда-нибудь или "не царское это дело"?

Каким образом iOS определяет наличие у сайта приложения?

Ответ уже получил, спасибо. Там другой принцип.

Каким образом iOS определяет наличие у сайта приложения?

anyd3v: я уже понял насколько я невнимательный :)

Каким образом iOS определяет наличие у сайта приложения?

Благодарю за скорый ответ! Проблема в том, что я даже не знал как правильно сформулировать вопрос :)