Perl

Приветствую, есть кусочек кода на Perl

sub make_message
{
return pack "C*", 0x00, length $_[0], unpack "C*", $_[0];
}

Я примерно понимаю, что эта функция берет текст исходного сообщения и прибавляет к нему его длину в байтах, впрочем могу ошибаться.
Буду очень благодарен тем, кто объяснит, что именно делает эта функция, и подскажет как написать то же самое на python 3

Обновился perl до версии 5.26 (уже 5.26.1).

Самое главное изменение, влияющее на поведение старых скриптов - @INC больше не содержит текущую директорию скрипта. Ваши модули из директории скрипта не могут быть больше загружены, надо переписывать код.

Downgrade портов не поддерживается, не попадитесь!

Если кто попался - смотрите, скорее всего в системе осталась старая версия perl. Надо создать линк в /usr/bin/perl на старую версию. Если какие-то модули обновляли после установки perl 5.26, то их необходимо вручную скачать и повторно установить линканув со старой версией.

base has been upgraded from version 2.25 to 2.26.

The effects of dotless @INC on this module have been limited by the introduction of a more refined and accurate solution for removing '.' from @INC while reducing the false positives.

http://perldoc.perl.org/perldelta.html#Removal-of-the-curren...

PS

Лига программистов PHP! mod_php 7.2.3 зависит от perl :)

Пишу курсовой (всего-то уже на днях сдавать нужно). Решил найти, как проверить наличие таблицы в MySQL. Типичный форум с его ответами.

if (mysql_query('DROP TABLE таблица')) echo "таблица существовала";

P.S. Я все-таки нашел :)