Программирование > Perl

Помогите разобрать код...

(1/2) > >>

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

@sections - массив секций, @subs - подсекций.
$keeper - переменная для выборки из базы по заданным параметрам.
show_in_map() - Определяет, стоит ли флаг для отображения секции или подсекции

@sections = grep { exists $_->{subs} } map {
    my @subs = $keeper->get_sections(
    s => $_->id(),
    status => 1,
    class => \'ThemeSection\'
          );

   @subs = grep { $_->show_in_map() } @subs;

   if (@subs) {
            $_->{subs} = \\@subs;
        $sum += scalar @subs;
        }
    $_;
 } @sections;

Понятно, что по выдранному из кода куску сложно что-то определить... Но тем не менее.. хотя бы последовательность выполнения блока, и какой кусок что делает, подскажите. А то я вконец запутался в этих map и grep и блоках. Понял только, что берется массив @sections, и что-то с ним делается...

arto:
он у вас и работать не будет, скобки не совпадают.

commander:
Gekt0r
просто возьми и перепиши...

Gekt0r:

--- Цитировать ---arto:
он у вас и работать не будет, скобки не совпадают.
--- Конец цитаты ---

код работает.. Со скобками нормально все.. Просто он выполняется немного некорректно, я ищу ошибку, найти не могу



--- Цитировать ---commander:
просто возьми и перепиши...
--- Конец цитаты ---

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

Народ,можете помочь?

arto:
где закрывающая скобка у "$keeper->get_sections" ?

Навигация

[0] Главная страница сообщений

[#] Следующая страница