ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Lech                        2:5020/400     23 Jun 2000  19:01:59
 To : All
 Subject : Добавление в массив
 -------------------------------------------------------------------------------- 
 

 Добрый день всем!
 Помогите пожалуйста, а что-то я зациклился со следующей задачей.
 Есть два массива @ary1, @ary2 со следующей структурой:
 @ary1 = ( $elem1^$elem2^$elem3 );
 @ary2 = ( $elem1^$elem2 );
 
 Задача: Если $ary1[$elem1] eq $ary2[$elem1], то к @ary1 добавить
 $ary2[$elem2].
 @ary1:
 foo1^ogo^mogo
 foo2^oho^moho
 foo3^ogo^moho
 ...
 
 @ary2:
 foo1^bar1
 foo1^bar2
 foo1^bar3
 foo2^bar3
 foo3^bar1
 ...
 
 Hужно получить следующее:
 foo1^ogo^mogo^bar1^bar2^bar3
 foo2^oho^moho^bar3
 foo3^ogo^moho^bar1
 ...
 
 Или если кто-нибудь подскажет как получить файл из этих массивов
 bar1 в котором foo1\nfoo3\n
 bar2 --------- foo1\n
 bar3 --------- foo1\nfoo2\n
 
 Спасибо огромное заранее!
 Владимир
 --- ifmail v.2.15dev5
  * Origin: Global Ukraine Inc. (2:5020/400)
 
 

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