я латех уже 20+ лет в руки не брал

Там были какие-то пакеты для рисования, но я их не знаю :)

Как же я не догадался! Спасибо. Мой вариант длинный.

#!/usr/bin/perl
use Bytes::Random::Secure 'random_bytes_base64';

if($ARGV[0] =~ /^\-{1,2}h(elp)?/){
  print "\tГенерирует случайный пароль.\n\tДлина пароля по умолчанию - 12 символов.\n\tЕё можно задать в качестве параметра.\n\n";
  exit;
}

# длина пароля задана?
$plen = ($ARGV[0] =~ /^[0-9]{1,3}$/) ? $ARGV[0] : 20;
$rnd = Bytes::Random::Secure->new(
  Bits => 128,
  NonBlocking => 1
);
print "\t", substr($rnd->bytes_base64($plen),0,$plen), "\n";

#!/usr/bin/perl
use Bytes::Random::Secure 'random_bytes_base64';

if($ARGV[0] =~ /^\-{1,2}h(elp)?/){
  print "\tГенерирует случайный пароль.\n\tДлина пароля по умолчанию - 12 символов.\n\tЕё можно задать в качестве параметра.\n\n";
  exit;
}

# длина пароля задана?
$plen = ($ARGV[0] =~ /^[0-9]{1,3}$/) ? $ARGV[0] : 20;
$rnd = Bytes::Random::Secure->new(
  Bits => 128,
  NonBlocking => 1
);
print "\t", substr($rnd->bytes_base64($plen),0,$plen), "\n";

Мой вариант всегда легко до нужных символов сузить:

@PerlBanjoBot $ dd if=/dev/urandom |tr -cd 'abcA-F@#$' |head -c12

aFaFDBDBacBD
https://PerlBanjo.com/5f9ce6c356

Странно, что никто еще не вспомнил String::Random :)

к вопросу у рандоме... чёт недавно замнтересовался этой темой, так как int $rand (101) был какой-то не сильно рандомный (генерю вероятность выпадения события, сравнивая выхлоп с нужной вероятностью в %%). выяснил, что там и правда некоторые накладочки с рандомизацией :(

Хорошо, что на глазок разрушительных изменений в этой версии нету... во всяком случае разорвать Telegram::Bot (и его форк Teapot::Bot) не должно. А вот появление всяких async|await как в ноде - это наверно клёво...

Mojolicious now prevents applications from using reserved placeholders in routes

When a route points to a missing controller, a namespace without a controller or a controller without an action, you now get an exception rather than a 404

Блин, а я это эксплуатировал

Additionally, you get an exception when when auto-rendering fails or a call to render cannot render a response, which would often appear to hang (while it actually was trying to wait for a delayed response that was never going to happen).

Теперь просто return не канает, надо явно писать что рендер с задержкой

А ты шалун... зачем эксплуатировать такие тонкие моменты? знаешь же, что рано или поздно тут должно порваться.

We've also renamed the method that designates conditional routing from over to requires

Ничего подобного

Как скажешь. Я-т только io loop пользовал из mojo и клиентскую часть и то если можно так выразиться, поневоле. Либу форкнул, а там для long poll как раз и используется mojo.

Ну ясно, ну а я и полноценные приложения на можо писал

Removed module Mojo::IOLoop::Delay

Епт