VPF::while по %hash - Форум программистов

burakov

Дата 15.4.2011, 13:22 (ссылка)

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

Загрузка ...

Опытный

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

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

Добрый день,

подскажите, хочется делать так

Код


while (my ($key, $value) = each (%hash)) {

      print $key . $value; 
      $hash {new_key} = new_value;

}

но нужно, чтобы хеш предоставлял $key и $value по мере добавления
такое может делать модуль use Tie::IxHash; но по хешу связанному с Tie::IxHash

while (my ($key, $value) = each (%hash)) - не получается

по справке посмотрел - там просто можно получить в массив $key или $value.
А хочется добавлять в хеш и одновременно идти по нему
Возможно ли такое?

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

Нотный архив http://libnote.ru скачать ноты бесплатно

ming

Дата 15.4.2011, 21:33 (ссылка)

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

Загрузка ...

Шустрый

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

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

добавление в хэш сбрасывает его итератор, так что следующий вызов each даст не очередную пару, а самую первую.

Так что чтобы сделать подобный функционал, вам нужно
1) отказаться от each
2) завести дополнительный массив куда будете складывать копии ключей

Код


my %hash = ... ;
my @keys = keys %hash ;
my $i=0; # индекс очередного ключа

while(1) {
  if (<условие завершения работы>) { last }
  my $key = $keys[$i++] ;  # очередной ключ ("эмуляция" :-D работы each)

  if (not exists $hash{$key}) { last } # элемент не существует
  my $value = $hash{$key};
  ...
  <тут работа с $key и $value>
  ...
  # добавление в хэш новых данных, если есть
  if (<есть новые данные>) {
    $hash{<new key>} = <new value>;
    # + в массив ключей
    push @keys, <new key>;
  }
}

Это сообщение отредактировал(а) ming - 15.4.2011, 21:48

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