|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : William Kuchukoff 2:5081/1.17 17 Oct 2000 13:02:11
To : Timur Sabirzyanov
Subject : Re: сравнение списков
--------------------------------------------------------------------------------
В сообщении от 15 Октябpя 00 года в 00:40 Timur Sabirzyanov писал к All:
TS> Есть два списка эх от двух аплинков.
TS> Хочется получить из него три: те что есть у обоих, те что есть только
TS> у первого, те что есть только у второго. Как это попроще сделать?
вот, первое, что пришло в голову:
Берем эхи из списка 1-аплинка и пихаем их в хэш %areas;
причем, эхи - это ключи, а значения, например, '1'
Берем эхи из списка 2-аплинка и пихаем их тоже в хэш %areas,
попутно проверяя ключ на наличие его в хеше
$areas{$areaname}=(exists(areas{$areaname})?'12':'2');
далее просто проходим по хешу
foreach $_ (keys %areas){
if($areas{$_}=~/12/){ эха есть у обоих }
elsif($areas{$_}=~/1/){ эха есть только у первого }
else{ эха есть только у второго }
}
Куда еще проще?
William
--- GoldED/W32 3.00.Beta5+
* Origin: Зубная эмаль со склада в Москве (2:5081/1.17)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
