Начинающий Perl-ист , Помогите, туплю с хешами.

[barberan]

Я недавно решил изучить Perl.

Вот, допустим есть хеш:

%hash = (
    'Земля' =>'Луна' ,
    'Марс' => 'Фобос',
    'Марс' => 'Деймос',
    'Уран' => 'Ариэль',
    'Уран' => 'Титаник');
 
print "Планета :";
$plan = "Марс"; #<STDIN>;
 
while (($key,$value) = each %hash) {
if($key == $plan)
{
    print "$key = $value\n";
}
}

Мне нужно ввести название планеты, допустим, Марс, и увидеть список её спутников, т.е. Фобос и Деймос, в данном случае.
Почему-то не работает. Выводится весь ХЕШ, и то, у Урана только "Титиник", у Марса только "Деймос".
Помогите, пожалуйста)

Сообщение отредактировано: barberan - 19.04.10, 16:39

[n0rd]

Хэш - это ассоциативный массив. Одному ключу соответствует ровно одно значение. Он не может содержать двух одинаковых ключей.
Кроме того, про перл написано в шапке страницы. В красной рамочке.