|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Larionov 2:5020/400 05 Nov 2002 07:40:26
To : Nikolay Pichtin
Subject : Re: Исключить из массива
--------------------------------------------------------------------------------
Привет, Hиколай !
> Hадо из первого массива исключить данные, находящиеся во втором массиве.
Может это ты имеешь в виду (симметричная разность массивов) :
@one = ('1','2','3','4');
@two = ('2','4');
@diff = ();
%count = ();
# Считаем количество вхождений элементов
# Если получится 2 - значит в обоих массивах !
foreach $e (@one, @two) { $count{$e}++ };
# Формируем массив разности массивов
foreach $e (keys %count ) {
if ($count{$e} != 2 ) {
push @diff, $e;
print "$e\n";
}
}
-----------------------------------
1
3
-----------------------------------
Время выполнения - 00:00:00.080
Код завершения (0)
Удачи !
Сергей Ларионов
--- ifmail v.2.15dev5
* Origin: Tomsktelecom - Digital Networks (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
