Нужно ли сбрасывать хэш-индекс 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}.

Что (без сомнения, очевидно), что я делаю неправильно? Я видел комментарии о том, как каждый из них «хрупок» - так ли это?

Ответы на вопрос(3)

Ваш ответ на вопрос