编辑可执行命令以在 Perl 中生成随机数生成器

Question

我在 Perl Crypt::PRNG 中使用这个模块来生成随机数。使用随机字符串命令时，数字生成似乎是真正随机的，它可以使用数字 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。