10 use vars qw(@array @r $k $v $c);
14 @array = qw(crunch zam bloop);
20 ($k, $v) = each @array;
23 ($k, $v) = each @array;
36 my @lex_array = qw(PLOP SKLIZZORCH RATTLE);
38 (@r) = each @lex_array;
42 ($k, $v) = each @lex_array;
44 is ($v, 'SKLIZZORCH');
45 ($k) = each @lex_array;
47 (@r) = each @lex_array;
61 is (scalar each @$ar, undef);
65 is ("@keys", "0 1 2");
67 @keys = keys @lex_array;
68 is ("@keys", "0 1 2");
70 ($k, $v) = each @array;
75 is ("@keys", "0 1 2");
77 ($k, $v) = each @array;
84 @values = values @array;
85 is ("@values", "@array");
87 @values = values @lex_array;
88 is ("@values", "@lex_array");
90 ($k, $v) = each @array;
94 @values = values @array;
95 is ("@values", "@array");
97 ($k, $v) = each @array;
102 while (each @array) { }
104 # each(ARRAY) in the conditional loop
106 while (($k, $v) = each @array) {
112 # each(ARRAY) on scalar context in conditional loop
113 # should guarantee to be wrapped into defined() function.
114 # first return value will be 0 --> [#90888]
118 while ($k = each @array) {
123 # each(ARRAY) in the conditional loop
125 for (; ($k, $v) = each @array ;) {
131 # each(ARRAY) on scalar context in conditional loop
136 for (; $k = each(@array) ;) {
141 # Reset the iterator when the array is cleared [RT #75596]
144 my ($i, $v) = each @a;
151 # Check that the iterator is reset when localization ends
154 my ($i, $v) = each @array;
157 local @array = 'A' .. 'C';
158 my ($i, $v) = each @array;
160 ($i, $v) = each @array;
163 ($i, $v) = each @array;
166 while (each @array) { }