VPF::values & keys - Форум программистов

Loki

Дата 10.6.2009, 14:24 (ссылка)

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

Загрузка ...

Бывалый

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

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

всем привет,
подскажите как сделать в перле следующее.
у меня есть такой массив где для одиноковый keys есть разные values, но нужно вывести не 1 value а все.

Код


my %a(
'a' => '1',
'a' => '2',
'b' => '3',
'c' => '4',
);
print $a{'a'};

мне нужно вывести
1
2
а выводится только 2, ну а если я в цикле делаю

Код


foreach(keys %a){
....
}

то выводит только
2
3
4
пробовал делать

Код


my @x = $a{'a'};

в @x все равно 1 значени, в идеале мне нужно получить список в @ что-бы потом удобно перебрать его в foreach не юзая прочии функции.

ginnie

Дата 10.6.2009, 14:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

Цитата(Loki @ 10.6.2009, 14:24

)

у меня есть такой массив

У Вас не массив, а хэш. Чтобы из хэша получить список значений для ключа надо в хэше по этому ключу хранить массив.

Код


my %a(
'a' => [ '1', '2' ],
'b' => '3',
'c' => '4',
);

push(@{$a{a}}, '3'); # добавляем значение в список

print join(', ', @{$a{a});

Это сообщение отредактировал(а) ginnie - 10.6.2009, 14:31

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

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

Loki

Дата 10.6.2009, 18:45 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата

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

а если нет? то так и никак иначе не выйдет? потому что в хэш у меня значения постепенно накапливаются, а потом типо нужно выбирать по каждому хэшу все значения, еще есть reverse, но тогда то же самое росто местами поменяется. т.е. если у меня так как в %a, хэши разные, а значения должны быть у никальными и по каждому хэшу вывести все значения не выйдет кроме как менять структуру записи?

ginnie

Дата 10.6.2009, 18:49 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

Loki, не могли бы Вы указать, почему Вы не можете сохранять значения внутри хеша в виде массива?

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

Loki

Дата 11.6.2009, 00:41 (ссылка)

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

Загрузка ...

Бывалый

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

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

потому-что иначе мне придется делать двусвязный @ массив
или как добавить данные в %a что-бы там было 'a' => [ '1', '2' ], ?
например у меня уже там есть 'a' => '1', как добавить в 'a' еще двойку и не потерять единицу?

kavkaz

Дата 11.6.2009, 06:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

хранить изначально

Код


{
   a => [ 1 ],
   b => [ 2, 3 ],
   c => [ 4 ]
}

вы же сами сказали что хэш дополняется... вот вам и превращение без потерь

amg

Дата 11.6.2009, 07:02 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Loki @ 11.6.2009, 00:41

)

у меня уже там есть 'a' => '1', как добавить в 'a' еще двойку и не потерять единицу?

Лучше всего, конечно, как все и говорят, изначально работать с хэшем массивов. Но если по каким-либо причинам это невозможно, то хэш скаляров легко превратить в хэш массивов:

Код

%h = (a=>1, b=>2);
%h = map {$_ => [$h{$_}]} keys %h;
push @{$h{a}}, 2;   # Теперь можно добавить к а двойку
print "@{$h{a}}\n"; # и напечатать

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