perlы

[ocehb]

изучаю некую большую систему, написанную на перле.
по словам пользователей и разработчиков, считается "roket science" и "last edge".

а унутре ее гадость,

@keys = keys %bi;
@values = values %bi;
while (@keys) {
  my $value = pop (@keys);
  print "Neutralizing ".$value."\n";
  pop(@values)->neutralize();
}

в результате на 850 строк модуля (вместе с комментариями) 130 предупреждений :(
тьфу на разработчиков еще раз.

Comments

[zhiraffanjut.livejournal.com]

А интересный вопрос. Порядок keys соответствует порядку values?

[ocehb]

в данном случае да.
и, скорее всего, данное поведение не изменится.
перемешивали они только при добавлении.

[zhiraffanjut.livejournal.com]

То есть вопрос в том, это особенность реализации или спецификации? Хотя в случае с перлом вопрос глупый Ж-)

Просто во многих других случаях про порядок ничего не говорится. А иногда они вообще бывают множеством, а не списком.

[ocehb]

по спецификации, они не обещают упорядоченности по вставке (ваставлению?),
и в каких-то реализациях специальнои перемешивали при заполнении хеша.
потом правда отказались.

про рандомность выдачи ничего не сказано, да и зачем зря грузить процессор...

просто покороче, поменьше памяти и почитабельнее выглядело бы так:

while (my ($key,$val) = each %bi) {
  print "Neutralizing $key\n";
  $val->neutralize();
}

[zhiraffanjut.livejournal.com]

Это-то понятно... Делать итерацию по ключам, когда надо на самом деле по ентрям - глупо. Хорошо хоть не делают доступ по ключу. Хотя если порядок не будет гарантирован, а в нейтрализации будет баг, то ловить его по логам будет большой зопой Ж)))

[ocehb]

угу.
а менять нельзя -- девелоперы в другом месте...