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