Нужно ли сбрасывать хэш-индекс Perl?
Хорошо, это вопрос N00b, но он поставил меня в тупик:
У меня есть следующий код Perl:
%project_keys = (
cd => "continuous_delivery",
cm => "customer_management",
dem => "demand",
dis => "dis",
do => "devops",
sel => "selection",
seo => "seo"
);
print "proj_code is $proj_code\n";
while ( ($key, $value) = each %project_keys ) {
if ($key == $proj_code) {
$url = "http://projects/".$project_keys{$key}."/setter";
last;
}
}
$proj_code
всегда передается в одном и том же('dis')
и строка печати показывает это.
Тем не менее, каждый раз, когда я запускаю это, я получаю разные значения дляproject_keys{$key}
.
Что (без сомнения, очевидно), что я делаю неправильно? Я видел комментарии о том, как каждый из них «хрупок» - так ли это?