Уникальные элементы массива

[Ardzhan]

Возникла задача удалить повторы элементов в массиве.

Например:
@testarray=(\'test\', \'test2\', \'test\');
нужно удалить повтор
@testarray=(\'test\', \'test2\');

[ondr]

http://forums.webscript.ru/showthread.php?s=&threadid=17454

[Ivan Kolesnikov]

Я бы сделал вот так:

Код: [Выделить]


@testarray=(\'test\', \'test2\', \'test\');
foreach (@testarray) {
  unless (exists $h{$_}) {
    $h{$_}=1;
    push @resarray, $_;
  };
};
print join \', \', @resarray;


[Ardzhan]

спасибо большое, все работает