|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Slava Korchagin 2:5025/57 18 Jun 2001 09:58:23
To : Alexander Babanov
Subject : Удалить из массива одинаковые элементы
--------------------------------------------------------------------------------
Sunday, June 17 2001 18:43, Alexander Babanov wrote to Slava Korchagin:
SB>>> Как быстpее всего yдалить из массива одинаковые элементы?
SK>> #!/usr/bin/perl
SK>> @array = qw/a b d 4 4 c d f g 1 2 3 4 5/;
SK>> for ($i = 0; $i <= $#array; $i++){
SK>> $hash{$array[$i]} = $i;
SK>> }
SK>> @array = sort { $hash{$a} <=> $hash{$b} } keys(%hash);
SK>> print @array;
AB> @array = qw/a b c b c c 1 2 3 4 5 2 4 2 5 0/;
AB> $h{$_}++ foreach @array;
AB> print sort keys %h;
Ага, y меня тоже есть CookBook %) Только в данном pецепте наpyшается поpядок
элементов массива и такая соpтиpовка ничем не поможет.
Good bye. Slava
--- CoolDead snapshot-2000.12.24
* Origin: = Thaboo Station = (Voronezh, Russia) (2:5025/57)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Удалить из массива одинаковые элементы 