To the question in your previous post I would say that should work.

So would I and the line does look rather nice. Unfortunately, it doesn't seem to work as you might expect. It does look as if it is resetting the iterator but it is failing to consistently retrieve the values from the hash, only managing to get the value for key "six" twice and not getting any others.

knoppix@Microknoppix:~$ perl -Mstrict -wE '
> my %hash = (
>    one => q{ein},
>    two => q{zwei},
>    six => q{sechs},
>    );
> say qq{@{ [ %hash ] }};
> for ( 1 .. 9 )
> {
>     my ( $k, $v ) = each %hash || each %hash;
>     say qq{$_: $k => $v}
> }'
six sechs one ein two zwei
Use of uninitialized value $v in concatenation (.) or string at -e lin
+e 11.
1: six => 
Use of uninitialized value $v in concatenation (.) or string at -e lin
+e 11.
2: one => 
Use of uninitialized value $v in concatenation (.) or string at -e lin
+e 11.
3: two => 
4: six => sechs
Use of uninitialized value $v in concatenation (.) or string at -e lin
+e 11.
5: one => 
Use of uninitialized value $v in concatenation (.) or string at -e lin
+e 11.
6: two => 
7: six => sechs
Use of uninitialized value $v in concatenation (.) or string at -e lin
+e 11.
8: one => 
Use of uninitialized value $v in concatenation (.) or string at -e lin
+e 11.
9: two => 
knoppix@Microknoppix:~$
[download]

I can't puzzle out what is going on here. I wondered if it was a precedence problem but changing each %hash to each( %hash ) made no difference.

Can anyone shed any light on what's happening here?

Update: A different approach to prove to myself that the each would behave as described.

knoppix@Microknoppix:~$ perl -Mstrict -wE '
> my %hash = (
>    one => q{ein},
>    two => q{zwei},
>    six => q{sechs},
>    );
> say qq{@{ [ %hash ] }};
> my $ct;
> for ( 1 .. 3 )
> {
>     while ( my ( $k, $v ) = each %hash )
>     {
>         $ct ++;
>         say qq{$ct: $k => $v}
>     }
> }'
six sechs one ein two zwei
1: six => sechs
2: one => ein
3: two => zwei
4: six => sechs
5: one => ein
6: two => zwei
7: six => sechs
8: one => ein
9: two => zwei
knoppix@Microknoppix:~$
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.