Re: most idiomatic way to iterate over an associative array?

On May 7, 4:07=A0am, Robert Klemme <shortcut...@[EMAIL PROTECTED]
> wrote:
> On May 7, 6:51 am, m...@[EMAIL PROTECTED]
 wrote:
>
> > This is what I'm doing now... is there a better way?
> > It would be great if there were some construct such
> > as 'for i in x begin ... end;'
>
> > =A0 =A0 i :=3D x.first;
> > =A0 =A0 loop
> > =A0 =A0 =A0 =A0 dbms_output.put_line(i);
> > =A0 =A0 =A0 =A0 exit when i =3D x.last;
> > =A0 =A0 =A0 =A0 i :=3D x.next(i);
> > =A0 =A0 end loop;
>
> > Many TIA!
> > Mark
>
> This will break for empty collections. =A0You can do
>
> SQL> set serverout on
> SQL> DECLARE =A0TYPE population_type IS TABLE OF NUMBER INDEX BY
> VARCHAR2(64);
> =A0 2 =A0 =A0continent_population population_type;
> =A0 3 =A0 =A0which VARCHAR2(64);
> =A0 4 =A0BEGIN
> =A0 5 =A0 =A0dbms_output.put_line('-----------');
> =A0 6
> =A0 7 =A0 =A0which :=3D continent_population.FIRST;
> =A0 8 =A0 =A0while which is not null loop
> =A0 9 =A0 =A0 =A0dbms_output.put_line(which || ' -> ' ||
> continent_population(which));
> =A010 =A0 =A0 =A0which :=3D continent_population.NEXT(which);
> =A011 =A0 =A0end loop;
> =A012
> =A013 =A0 =A0dbms_output.put_line('-----------');
> =A014
> =A015 =A0 =A0continent_population('Australia') :=3D 30000000;
> =A016 =A0 =A0continent_population('Antarctica') :=3D 1000; -- Creates
new
> entry
> =A017 =A0 =A0continent_population('Antarctica') :=3D 1001; -- Replaces
> previous value
> =A018
> =A019 =A0 =A0which :=3D continent_population.FIRST;
> =A020 =A0 =A0while which is not null loop
> =A021 =A0 =A0 =A0dbms_output.put_line(which || ' -> ' ||
> continent_population(which));
> =A022 =A0 =A0 =A0which :=3D continent_population.NEXT(which);
> =A023 =A0 =A0end loop;
> =A024
> =A025 =A0 =A0dbms_output.put_line('-----------');
> =A026 =A0END;
> =A027 =A0/
> -----------
> -----------
> Antarctica -> 1001
> Australia -> 30000000
> -----------
>
> PL/SQL procedure successfully completed.
>
> SQL>
>
> Cheers
>
> robert
>
>
seehttp://download.oracle.com/docs/cd/B19306_01/appdev.102/b14261/collec..=
..http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14261/collec...

I think I would consider the For I in 1..n construct

UT1 > l
  1  declare
  2  type t_array is table of varchar2(10) index by binary_integer;
  3  t_list   t_array;
  4  begin
  5  t_list(1) :=3D 'one';
  6  t_list(2) :=3D 'two';
  7  t_list(3) :=3D 'three';
  8  t_list(4) :=3D 'four';
  9  t_list(5) :=3D 'five';
 10  for I in 1..t_list.last loop
 11    dbms_output.put_line(t_list(I));
 12  end loop;
 13* end;
UT1 > /
one
two
three
four
five

PL/SQL procedure successfully completed.

Again as Robert warned in his solution the array should not be empty.

HTH -- Mark D Powell --