21 Відповідь від Дмитро-Чебурашка Востаннє редагувалося Дмитро-Чебурашка (21.05.2016 16:15:09)

  • Дата реєстрації: 13.11.2014
  • Повідомлень: 537
    • Репутація: 53

Re: Примитивні запитання з мови Perl

Читаю текстовий файл.

Знаходжу серед нього рядки, що починаються на число з крапкою. Начебто 112. трумрлоє боротрумкдеродереваспрвовідабаорпмунє
Це - початок майбутньої таблиці, перший її стовпець, відповідно перший елемент масиву, @KonstruktorRj [0] [N].

Далі треба вишукувати елементи виду [[01.Буонуимаркючуи, прукропджуючуи, Бутрумр зтрумртрумтрумрльнозмуицнюючуи. ]]
[[14.ЕслунРваово-РваіЕсРваовуи (Бутрумр прукропджуючуи трумрДроеБуіБу)]]
[[15.Дророноснуи]]
[[18.ЗтрумрсБуосовувтрумрнуи Дрора віртрумрзРваовуий ботрйробуи]]
[[25.ткуржачотрумуиннуи, зтрумрсБуосовувтрумрнуи Дрора зтрумрботрйрювтрумрннях Дроеченуи, ткуржачніх Есляхутурумуив, ткуржачнотрумо муихутурумуру.]]
[[37.ЗтрумрсБуосовувтрумрнуи Дрора БууберРваульомарки лєтрумєнуив]]
[[40.РваровосДроінюючуи]]
[[41.Ртрумрнозтрумртрумоювтрумрльнуи]]
[[43.ДророБуіблювоБунуи]]
[[44.ДророБуізтрумрДротрумрльнуи]]
[[50.ЗтрумрсБуосовувтрумрнуи Дрора кабанів зтрумрботрйрювтрумрннях]]
[[54.ДророБуіміРваробнуи]]

Кожен з них, потрібно вписувати за адресою [14] [N], [15] [N], [18] [N] і так далі.

Якщо знову зустрічається рядок, що починається з цифри і точки, починається наступна, більш нижня рядок таблиці, [14] [N + 1] відповідно.

Ну, це, вся таблиця має 58 осередків, довжина її вниз заздалегідь невідома.

І вся вона розділена знаками

|! 1.Росбірлінтрумр |! [[01.Буонімаркючуи, прукропджуючуи, Бутрумр зтрумртрумтрумрльнозмуицнюючуи. ]] |! [[02.ЗтрумрсДрооРвауийлівуи]] |! [[03.ЗтрумрсБуосовувтрумрнуи Дрора безсоннуи]] |! [[04.БолдрбреуБуохутубормраочуи]] |! Ніфіга Ні (Туди сюди) |! ............... [[58.ЗтрумрсБуосовувтрумрнуи Дрора зтрумрботрйрювтрумрннях ніроРва уи Боітсечовикрумпрапіеиих Есляхутурумуив]] |

Кожний рядок цієї таблиці починається |! і закінчується | .


Все це вишукується в файлі 20090224.1006370211.20160310.1000110484.html

довжиною 5 * 931 * 783 байт

Заковика, саме що почалася коли я спробував працювати з масивом, прога падає, падає і падає ...

Три години вчора, три години сьогодні, і я вже зовсім нічого майже не розумію.

22 Відповідь від Дмитро-Чебурашка Востаннє редагувалося Дмитро-Чебурашка (21.05.2016 16:35:53)

  • Дата реєстрації: 13.11.2014
  • Повідомлень: 537
    • Репутація: 53

Re: Примитивні запитання з мови Perl

І все таки, поясніть мені, покажіть в коді, як створити динамічні масиви в перл? Зручна, приємна, навіть смішна мова, але я в неї ще не освоївся. Без динамічних масивів зовсім не можна вирішувати реальні завдання!

Ось наприклад моя функція. Що в неї не так?


sub Vpysuvats{
                   
                   
       if($zvIryuvalnik-$N >=2)
                   {     
                        $N = $zvIryuvalnik;
                                                 for($U=0;$U<=57;$U++)  
                            { 
                                @KonstruktorRjadkiv [$U][$N-1]= ('|!    Немає значення     ');
                                @KonstruktorRjadkiv [58][$N-1]= ('|!    Немає значення  |  '. "\n";);                                  
                            }    
                    }

}

А ось приклад на C++.  Як це з'імитувати на перл?

long newZnak = size/4+1;
  char** Znak = new char* [newZnak];
  for( int i = 0; i <= newZnak; ++i )
  Znak[ i ] = new char[ 4 ];

*************************

for( int i = 0; i < newZnak; ++i )
  {
     
     for( int j = 0; j <= 4; ++j )
        {     
               
            cout << " V tsikle i: " << i << 
            " V tsikle j: " << j  << 
            " V tsikle i: " << i << 
            " V tsikle B: " << B << " V tsikle Mi_UTF8_0[b]: " << Mi_UTF8_0[b] <<  endl;;
            
            
            Znak[ i ][ j ] = Mi_UTF8_0[b]; B++;