ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Kostiuchenko 2:463/468.5 18 Jun 2001 05:56:27
To : Slava Korchagin
Subject : Удалить из массива одинаковые элементы
--------------------------------------------------------------------------------
Как-то раз (а точнее 17 Jun 01 в 21:57) Slava Korchagin писал(а) к Sasha
Breger:
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> }
короче: @hash{@array} = (0..$#array+1);
SK> @array = sort { $hash{$a} <=> $hash{$b} } keys(%hash);
SK> print @array;
print @array = grep { !$is{$_}++ } @array;
--
mailto: random at info.net.ua //Александр
* Origin: useless (2:463/468.5)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
