10 no warnings 'deprecated';
11 use vars qw(@array @r $k $v);
15 @array = qw(crunch zam bloop);
21 ($k, $v) = each @array;
24 ($k, $v) = each @array;
38 my ($k, $v) = each @array;
45 my @lex_array = qw(PLOP SKLIZZORCH RATTLE PBLRBLPSFT);
47 (@r) = each @lex_array;
51 ($k, $v) = each @lex_array;
53 is ($v, 'SKLIZZORCH');
54 ($k) = each @lex_array;
58 my ($k, $v) = each @lex_array;
60 is ($v, 'PBLRBLPSFT');
62 (@r) = each @lex_array;
76 is (scalar each @$ar, undef);
80 is ("@keys", "0 1 2");
82 @keys = keys @lex_array;
83 is ("@keys", "0 1 2 3");
89 is ("@keys", "1 2 3");
91 @keys = keys @lex_array;
92 is ("@keys", "1 2 3 4");
95 ($k, $v) = each @array;
100 is ("@keys", "0 1 2");
102 ($k, $v) = each @array;
109 @values = values @array;
110 is ("@values", "@array");
112 @values = values @lex_array;
113 is ("@values", "@lex_array");
118 @values = values @array;
119 is ("@values", "@array");
121 @values = values @lex_array;
122 is ("@values", "@lex_array");
125 ($k, $v) = each @array;
129 @values = values @array;
130 is ("@values", "@array");
132 ($k, $v) = each @array;