编辑 executavble 命令以在 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。