ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Slava Korchagin 2:5025/57.1 17 Jun 2001 21:57:32
To : Sasha Breger
Subject : Удалить из массива одинаковые элементы
--------------------------------------------------------------------------------
Sunday, June 17 2001 16:29, Sasha Breger wrote to All:
SB> Как быстpее всего yдалить из массива одинаковые элементы?
#!/usr/bin/perl
@array = qw/a b d 4 4 c d f g 1 2 3 4 5/;
for ($i = 0; $i <= $#array; $i++){
$hash{$array[$i]} = $i;
}
@array = sort { $hash{$a} <=> $hash{$b} } keys(%hash);
print @array;
Good bye. Slava
--- CoolDead snapshot-2000.12.24
* Origin: = Thaboo Station = (Voronezh, Russia) (2:5025/57.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Удалить из массива одинаковые элементы 
