Редактировать исполняемую команду, чтобы сделать генератор случайных чисел в Perl

Question

Я использовал этот модуль для Perl, Crypt:: PRNG, чтобы генерировать случайные числа. Генерация чисел кажется действительно случайной при использовании команды random string, она может использовать цифры 0-9, а также другие символы и создавать случайную строку из указанного числа цифр, проблема в том, что в начале 0.

perl -MCrypt::PRNG=:all -E "say random_string_from("1234567890", n)"

где n - количество цифр, есть ли исполняемая команда, аналогичная приведенной выше, для исправления первых 0, чтобы я мог точно получить n-значное число? Мое намерение состоит в том, чтобы исправить только первую цифру "123456789". Кто-нибудь знает как это сделать? Заранее спасибо.

Answer 1

Как насчет

random_string_from("123456789", 1) . random_string_from("1234567890", $n-1)

Answer 2

Положить Crypt::PRNG код в цикле while, пока ведущим символом не будет 0.