duplicitni prvky

[Pavel Kunc]

>>potreboval bych poradit jak dostat z pole duplicitni polozky.
>>Mam treba pole @vsechno, ktere obsahuje {AAA, BBB, AAA, AAA, BBB, CCC}.
>>Jakkym zpusobem se dostanu k @data, ktere bude obsahovat jen {AAA, BBB,
>>CCC}?

>Treba
>    @data = keys %{{ map {$_, 1} @vsechno }};
>resp.
>   @data = sort keys %{{ map {$_, 1} @vsechno }};
>aby to bylo setridene jako v zadani.
>Bob


Nejak mi to nefunguje, vypisuje mi to jen posledni hodnotu pole, tedy CCC.
Potrebuju to pouzit v tomhle:

while (@vsechno = $st->fetchrow_array)
  {
   @data = keys %{{ map {$_, 1} @vsechno }};
    print @vsechno;                  # tady je jeste kopletni.
}

 foreach $autor (@data)
     {
       print "<tr><td align=\"left\">", "$autor", "</td></tr>\n";  #Tady by
se prave meli tisknout autori a tiskne se jen posledni
      }
 $db->disconnect;

KuPa