#!/usr/bin/perl -w
use utf8;                  # говорит Perl что код нашей программа написан в кодировке utf8.
use open qw(:std :utf8);   # говорит Perl что все потоки STDIN, STDOUT, STDERR должны работать с utf8.
use warnings;
sleep(10);

my $str = "abc";
    $str =~ /(((a)(b))(c))/;
    print "1: $1 2: $2 3: $3 4: $4 5: $5\n";
    # prints: 1: abc 2: ab 3: a 4: b 5: c
sleep(10);



@BUFFER_temp = ();
$GLOBAL_lichylnyk = 0; $zvIryuvalnik = 0;

$FileNazva_1   =  'OPAfile.txt';
$Nazvadopovnjuvach = 'New_';
$FileNazva_2 = $Nazvadopovnjuvach.$FileNazva_1;
$FileNazva_3 = $Nazvadopovnjuvach.$FileNazva_2;


$Rjadky = 0;

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

print "$FileNazva_2";

open FILEHANDLE_2, ">>$FileNazva_2";
       #Відкриємо файл для читання і створимо іншого файлу, для запису в нього зміненого тексту.
open FILEHANDLE_1, $FileNazva_1;

open FILEHANDLE_3, ">>$FileNazva_3";


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

}


while (defined (my $file_line = <FILEHANDLE_1>)) {

    sub Ste
    {
        if ($zvIryuvalnik-$GLOBAL_lichylnyk>=2)
        {                                   #блок стеження за лічильниками
                 print 'Ste Ste Ste Ste Ste Ste Ste Ste Ste Ste Ste Ste';
                   
                 print $file_line; print "/n";
                 #push @BUFFER_temp, $file_line;
                                Vpysuvats;
                                   $temp2= @BUFFER_temp[$GLOBAL_lichylnyk];
                                   $temp3= $temp2. ' |';
                                   $temp4= $temp3. "\n";
                                   @BUFFER_temp[$GLOBAL_lichylnyk]=  $temp4;
                                   print FILEHANDLE_2 "$BUFFER_temp[$GLOBAL_lichylnyk]";
                 $GLOBAL_lichylnyk++;



        }
    }

        $Rjadky++;
        print " Tse rjadok $Rjadky\n";
        for ($i=0; $i<=$GLOBAL_lichylnyk; $i++)
             {
                print  "A sho my maemo $i @BUFFER_temp[$GLOBAL_lichylnyk]\n";
             }
             #sleep 30;
        
        #@BUFFER_temp = ();
        if ($file_line =~ m/(^.*(([0-9]{3}) (.*) )$)/) #Шукаємо число з трьох цифр в кожному рядку і виділяємо окремо число і залишившийсь у залишку подальший рядок
           {
                   print 'elsif 0';
                   
                   $zvIryuvalnik++;
                   Ste;
                   print "1: $1 2: $2 3: $3 4: $4 5: $5 6: $6 7: $7 8: $8\n";
                   $temp = $1;
                   $temp =~ s/\s+$//;#Чтобы отсечь "хвостовые" пробелы, годится
                   $temp = ' |!'. $temp;# дописати спочатку роздільник таблиці
                            print "GLOBAL_lichylnyk: $GLOBAL_lichylnyk  temp: $temp \n";
                                  #push $BUFFER_temp[$GLOBAL_lichylnyk], $temp;
                                   $temp2= @BUFFER_temp[$GLOBAL_lichylnyk];
                                   $temp3= $temp2.$temp;
                                   @BUFFER_temp[$GLOBAL_lichylnyk]=  $temp3;
                                   
                    $nomer = $2;

                    @KonstruktorRjadkiv [0][$N-1]=  $temp3;                    
                   

            }

            elsif ($file_line =~ /(^.*([0-9]{3})(.*)$)/)
            {
                   $zvIryuvalnik++;
                   print 'elsif 1';
                   
                   print 'Ste';
                   
                   Ste;
                   
                   print "1: $1 2: $2 3: $3 4: $4 5: $5 6: $6 7: $7 8: $8\n";
                   $temp = $1;
                   $temp =~ s/\s+$//;#Чтобы отсечь "хвостовые" пробелы, годится
                   $temp = ' |!'. $temp;# дописати спочатку роздільник таблиці
                                   print "GLOBAL_lichylnyk: $GLOBAL_lichylnyk  temp: $temp \n";
                                   #push $BUFFER_temp[$GLOBAL_lichylnyk], $temp;
                                   $temp2= @BUFFER_temp[$GLOBAL_lichylnyk];
                                   $temp3= $temp2.$temp;
                                   @BUFFER_temp[$GLOBAL_lichylnyk]=  $temp3;
                                   
                    @KonstruktorRjadkiv [0][$N-1]=  $temp3;               
                   
            }

            elsif ($file_line =~/(\[{2}([0-9]{2})\.[^\[\]]*\]{2})/)
            {
                   print 'elsif 2';
                   

                   
                   
                   $temp = $1;
                   $temp =~ s/\s+$//;#Чтобы отсечь "хвостовые" пробелы, годится
                   $temp = ' |!'. $temp;# дописати спочатку роздільник таблиці
                                  #push $BUFFER_temp[$GLOBAL_lichylnyk], $temp;
                                   $temp2= @BUFFER_temp[$GLOBAL_lichylnyk];
                                   $temp3= $temp2.$temp;
                                   @BUFFER_temp[$GLOBAL_lichylnyk]=  $temp3;
                                   
                    $nomer = $2;

                    @KonstruktorRjadkiv [$nomer][$N-1]=  $temp3;                   
                                   
            }




        #sleep(25);
        #print "A thi zminulysja zminni? 1: $1 2: $2 3: $3 4: $4 5: $5 6: $6 7: $7 8: $8\n";
        #sleep(25);

}

print FILEHANDLE_3 "@KonstruktorRjadkiv";

# $file_line =~ m/^.([0-9]{3}s (.*) )$/;
#$file_line =~ m/^.([0-9]{3}[A-Za-z]+(\.[09]*)?)([CF])$/;

# s - це спеціальний символ, який вказує на будь-який символ з підмножини пробільних (пробіл, табуляція, etc ...) Уточню.  вказує на одиничний пробільний символ.
# ^ - в контейнері заперечення     Ну тобто перевертання значення
# Часто використовується послідовність .* для позначення будь-якої кількості будь-яких символів між двома частинами регулярного виразу.




close FILEHANDLE_2;

close FILEHANDLE_1;

close FILEHANDLE_3;



#(*) -

#Операція, яка позначається крапкою "." поєднує дві текстові змінні. Результатом цієї дії є третій рядок, який дорівнює першому і другому рядкам разом взятим. Англійською мовою операція об'єднання двох рядків зветься "concatenation". Не маючи кращого варіанту, я буду звати її конкатенацією (на слух сприймається як дуже розумне слово - і це основна причина його вживання).


  __END__