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

    −109

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    my $list       = [];
while ( my $r = $st->fetchrow_hashref ) {
     # ...

     my @desc_periods = sort { $b <=> $a } keys %{ $r->{bp_periods} };
     $num_p = ( $#desc_periods + 1 ) or 1;
 
     $list->{$num_p} = $r;
}

    Суть ГК в строчке 6. Картина маслом: "Я у мамы хакир".

    Запостил: Elvenfighter, 15 Августа 2013

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

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