Re^3: Hash value interpolation

The use of each is that it's not a memory hog. When you loop over keys, Perl has somewhere built a list of all the keys in the hash. This is especially disastrous when the hash is tied to some huge data set.

The real problem with each is that every hash has only one iterator, and if you drop out of a loop that's walking the hash, the next loop that tries to walk that hash will start where the first left off.

Comment on Re^3: Hash value interpolation

Replies are listed 'Best First'.
Re^4: Hash value interpolation by ikegami (Patriarch) on Feb 16, 2009 at 21:47 UTC
The problem can be avoided by calling `keys` before `each`. `keys %$ht; # Reset iterator while (my ($key, $value) = each(%$ht)) {` [download] Update: Checked source to make sure it's efficient. Yes it is. It doesn't enumerate the keys at all in void context.	[reply] [d/l] [select]
Re^4: Hash value interpolation by csarid (Sexton) on Feb 17, 2009 at 23:21 UTC
Kyle wrote "The real problem with each is that every hash has only one iterator, and if you drop out of a loop that's walking the hash, the next loop that tries to walk that hash will start where the first left off." Can you give an example where the above mentioned happens or point me to an example. Thanks very much	[reply]
Re^5: Hash value interpolation by ikegami (Patriarch) on Feb 18, 2009 at 01:29 UTC
`local $\ = "\n"; my %h = map { $_ => 1 } qw( a b c d ); for my $pass (1..3) { print "Pass $pass:"; while (my ($k,$v) = each %h) { print $k; last if $pass == 1; } }` [download] `Pass 1: c Pass 2: a <---- 'c' missing b d Pass 3: c a b d` [download] Solution: `local $\ = "\n"; my %h = map { $_ => 1 } qw( a b c d ); for my $pass (1..3) { print "Pass $pass:"; keys %h; # Reset iterator while (my ($k,$v) = each %h) { print $k; last if $pass == 1; } }` [download] `Pass 1: c Pass 2: c <---- Welcome back a b d Pass 3: c a b d` [download]	[reply] [d/l] [select]
Re^6: Hash value interpolation by Anonymous Monk on Feb 18, 2009 at 22:24 UTC
ikegami thanks again for all the help and explanations	[reply]


We don't bite newbies here... much
	PerlMonks