VPF::Новичок - Форум программистов

barberan

Дата 19.4.2010, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 28.4.2007

Репутация: нет
Всего: нет

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

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

Код




%hash = (
    'Земля' =>'Луна' ,
    'Марс' => 'Фобос',
    'Марс' => 'Деймос',
    'Уран' => 'Ариэль',
    'Уран' => 'Титаник');

print "Планета :";
$plan = "Марс"; #<STDIN>;

while (($key,$value) = each %hash) {
if($key == $plan)
{
    print "$key = $value\n";
} 
}

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

Pfailed

Дата 19.4.2010, 21:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39

Начните с use strict.
Строки нужно сравнивать оператором eq.
Одному ключу в хэше может соответствовать только одно значение. Повторным присваиванием вы перезаписываете старое значение.

--------------------

I'm on CPAN
I'm on github

Nab

Дата 19.4.2010, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37

Для сравнения строк используйте 'eq' а не '=='.

Для вывода одного элемента зачем вам бегать по всему хешу? Выводите конкретный элемент.

Как вы собираетесь элементы хеша различать? Ключи должны быть уникальны. Хотите хранить несколько значений, используйте ссылку на массив к примеру:

Код


%hash = (
    'Земля' =>'Луна' ,
    'Марс' => [ 'Фобос',  'Деймос' ],
    'Уран' => 'Ариэль',
    'Уран' => 'Титаник');

print "Планета :";
$plan = "Марс"; #<STDIN>;

if (ref $hash{$plan} eq 'ARRAY') 
  foreach (@{$hash{$plan}})
    print "$plan = $_\n";
else
  print "$plan = $hash{$plan}\n";

Не проверял, но приблизительно вот так.

Это сообщение отредактировал(а) Nab - 19.4.2010, 21:17

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

shamber

Дата 19.4.2010, 21:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

barberan, ага и с кодировкой если что приготовьтесь побороться smile

krypt3r

Дата 21.4.2010, 07:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 359
Регистрация: 9.6.2009

Репутация: 2
Всего: 16

У Урана нет спутника Титаник smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »