ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Oleg Ivanilov                        2:5030/907     24 Sep 2000  21:51:26
 To : All
 Subject : Помогите, плз!..
 -------------------------------------------------------------------------------- 
 

                              -=<*Hello, All!*>=-
              НННННННННННННННННННННННННННННДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
 
 Я что-то торможу сильно, подскажите, а то за целый день уже голова болит. :(
 
 # Есть два массива, с равным количеством эл-ов. (dates и places)
 # Hадо устроить проверку - если в первом массиве есть одинаковые эл-ты, то
 # во втором массиве об`еденить соответствующие элементы в один через ", "
 # При этом в первом массиве все одинаковые эл-ты об`единить в один.
 #
 # То есть, к примеру:
 # Есть:
 # ('1' '2' '2' '3' '4' '5' '6' '6' '6' '7')
 # ('12' '33' '55' '76' '87' '43' '28' '23' '76' '11')
 # Hадо:
 # ('1' '2' '3' '4' '5' '6' '7')
 # ('12' '33, 55' '76' '87' '43' '28, 23, 76' '11')
                        push (@dates_tmp, "$day-$month-$year");
                        push (@places_tmp, "$place");
 
                        for ($i = 0; $i < @dates_tmp; $i++)
                        {
                                if ($dates_tmp[$i] eq $dates_tmp[$i+1])
                                {
                                        push (@dates, "$dates_tmp[$i]");
                                        push (@places, "$places_tmp[$i],
 $places_tmp[$i+1]");
                                }
 #                                      @dates_tmp = @dates;
 #                                      @places_tmp = @places;
                        }
                           Oleg Ivanilov AKA Equuleus
 ... Будь пpоще - и люди к тебе потянутся!..
 --- GoldED+/W32 1.1.4.5... Best viewed with eyes!
  * Origin: Equuleus Station, St.Petersburg, Russia (2:5030/907)
 
 

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

Тема:    Автор:    Дата:    Помогите, плз!..   Oleg Ivanilov   24 Sep 2000 21:51:26   Помогите, плз!..   Maxim Y. Zinyakov   25 Sep 2000 14:05:04   Re: Помогите, плз!..   Eugene Bodin   26 Sep 2000 09:47:14