ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : dimka kuvshinov                      2:5020/400     16 Oct 2000  02:35:08
 To : Timur Sabirzyanov
 Subject : Re: сравнение списков
 -------------------------------------------------------------------------------- 
 

 TS> Есть два списка эх от двух аплинков.
 TS> Хочется получить из него три: те что есть у
 TS> обоих, те что есть только у
 TS> первого, те что есть только у второго. Как это
 TS> попроще сделать?
 
 #!/usr/bin/perl -wT
 
 @massiv1=(1,2,3,4,5,14,15);
 @massiv2=(3,4,5,6,7,8,9);
 
 foreach $list1(@massiv1){
   foreach $list2(@massiv2){ push @unless, $list1 unless($list1 ne
 $list2)}
 }
 print @unless,"\n";
 
 @seen{@unless}=();
 
 foreach $xitem (@massiv1){
   push(@qwe, $xitem) unless exists $seen{$xitem};
 }
 print @qwe,"\n";
 
 foreach $xitem (@massiv2){
   push(@qwe1, $xitem) unless exists $seen{$xitem};
 }
 print @qwe1,"\n";
 
 часа два долбался... 
 
 Удачи!!
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    сравнение списков   Timur Sabirzyanov   15 Oct 2000 02:40:21   Re: сравнение списков   dimka kuvshinov   16 Oct 2000 02:35:08   Re: сравнение списков   Michael Poliakov   16 Oct 2000 10:38:01   Re: сравнение списков   dimka kuvshinov   16 Oct 2000 10:56:10   сpавнение списков   Slava Korchagin   16 Oct 2000 11:54:10   Re: сравнение списков   Alexander Babanov   15 Oct 2000 21:33:05   Re: сравнение списков   William Kuchukoff   17 Oct 2000 13:02:11