1. Perl / Говнокод #12431

    −162

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    for ( @{$items} ) {
    if ( $_->{ID} == $id ) {
        push @items,$_;
    }
}

    Думаю, подобное уже было, но все же.

    Запостил: regex, 16 Января 2013

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

    • ava mac-t 16.01.2013 20:44 # −2

      Чтоб ничего не пропало зря! Вечная вторичная переработка.
      А между 1 и 2 строками $id не присваивается кем-нибудь? А то - похоже на осроумную обработку запросов while $id. Не ГК!
      Ответить

    • ava guest 22.01.2013 22:53 # 0

      Ошибки нет. $items и @items не одно и тоже!
      Ответить

    • ava guest 08.02.2013 02:44 # +2

      @items = grep {$_->{ID} == $id} @$items;

      Так короче :)
      Ответить

    Добавить комментарий