я вот тоже не так давно подвизался доработать софт на Д7 на предмет ФЗ-54...
и суть даже не в синтаксисе языка )))
на самом деле, там первая причина неприятия была в том, что это писал  КТО-ТО... и этот кто-то писал, очевидно, "я не программист, пишу как умею" ))
сплошной хардкод и копипаста ...
ну а сама Д7 добавила дискомфорта отладки

зато такой код понятнее, я пробовал дорабатывать код который весь из указателей состоял, нифига не понял где что объявлялось и генерировалось, пришлось самому написать.

сори, даже 6.5кб
вырезка функции:

sub writeFile
{
   my ($host, $src, $dst) = @_;
   my ($total, $percent);
   my $s = IO::Socket::INET->new(PeerAddr => $host, PeerPort => DEFAULT_PORT,
                                 Proto => 'tcp') or die;

   die "Can't open source $src.\n" unless -f $src and -r $src and
       open FILE, $src;

   my ($mode, $len) = (stat FILE)[2,7];
   my $buf = pack 'CNNA*', WRITE_FILE_CMD, $mode, $len, $dst;
   print $s pack('n', length $buf), $buf;

   $| = 1;
   print 'Sending...    ';

   my $startTime = time;
   while (read FILE, $buf, 1024)
   {
       print $s $buf;
       $total += length $buf;
       my $p = int($total / $len * 100 + .5);
       printf "\b\b\b\b%3d%", ($percent = $p) if $p > $percent;
   }

   sysread($s, $buf, 1) or die "Can't read result.\n";
   close $s;
   my $result = unpack 'C', $buf;

   my $endTime = time;
   $endTime++ unless $endTime - $startTime;

   print "\b\b\b\b", $result ? "done." : "failed.";
   printf " %d bytes/sec\n", int($total / ($endTime - $startTime));
}

указатели - это другое ))

но разбиение на функции (фиг с ними - с классами) - этому учат на курсах программирования, вроде ))) модули.. повторное использование...

без них, с.ка, чтобы добавить одно, нужно найти 10 мест, где оно используется.. и не пропустить ни одного... меня это бесит ))

https://vk.com/aywao.novichkam вот сюда зайди))

чтобы они изучив мои исходники 😂 ору!

И цветовая схема редактора у него интересная)

"все любят тёмную тему" ты чо!

А я что то и не знал что переменные можно кириллицей оО

А я что то и не знал что переменные можно кириллицей оО

"все любят тёмную тему" ты чо!

Я не люблю 😈

ну вот как-то тоже не прижилась. хотя конечно всё на любителя

указатели - это другое ))

но разбиение на функции (фиг с ними - с классами) - этому учат на курсах программирования, вроде ))) модули.. повторное использование...

без них, с.ка, чтобы добавить одно, нужно найти 10 мест, где оно используется.. и не пропустить ни одного... меня это бесит ))