|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 19 Feb 2002 04:04:15
To : Soft
Subject : Re: Проверка на совпадение элементов массива
--------------------------------------------------------------------------------
"Soft" <Soft.@p58.f15.n5075.z2.fidonet.org> wrote in message
news:1014036564@p58.f15.n5075.z2.ftn...
> Доброго времени суток, уважаеммый(ая) All
>
> Есть два массива @1 и @2. ужно проверить есть ли в них совпадающие
разделы.
> Есть ли элементы в первом массиве, которые содержатся и во втором. Я делаю
эту
> задачу двойным цыклом foreach, но что-то подлсказывает мне что это до
ужаса
> криво.
> $foreach $element(@array1) {
> foreach $elem(@array2) {
> push(@problem, $elem) if ($elem eq $element);
> }
> }
my %hash1;
@hash1{@array1} = ();
my @problem = grep { exists $hash1{$_} } @array2;
Андрей
P.S. Почему бы не сделать эту проверку еще на этапе формирования
второго массива? Hаверняка он создается поэлементно...
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Проверка на совпадение элементов массива