|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vitus@ice.ru 2:5020/400 10 Jul 2001 11:26:40
To : "Oleg Poltoratskiy"
Subject : Re: объединение массивов
--------------------------------------------------------------------------------
Oleg Poltoratskiy <matrixmaster@kubic.ru> wrote:
OP>Можно как нибудь так объединить 2 массива, что бы результат - массив,
OP>содержал значения первого и второго массива буз дублирования значений.
OP>Спасибо.
%hash = map ( {$_ => 1} @arr1,@arr2);
@newarr = keys %hash;
Это если на порядок элементов плевать.
Если требуется чтобы сохранился порядок (при этом из дублирующихся
элементов остался первый, то)
for (@arr1,@arr2) {
push @newarr,$_ unless exists $hash{$_};
$hash{$_}++;
}
По окончании цикла %hash содержит количество дубликатов для каждого
элемента объединенного массива.
OP>--
OP>Отправлено через сервер Talk.Ru - http://www.talk.ru
--
Victor Wagner vitus@ice.ru
Chief Technical Officer Office:7-(095)-748-53-88
Communiware.Net Home: 7-(095)-135-46-61
http://www.communiware.net http://www.ice.ru/~vitus
--- ifmail v.2.15dev5
* Origin: FT-center (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: объединение массивов 