如何在Perl中的两个数字之间创建一个随机数

Question

我已经在其他编程语言中看到了许多其他方法...虽然我还没有在Perl中找到一个...

我想要完成的是设置两个数字：

$minimum = 100;
$maximum = 4000;

然后在这两者之间创建一个随机整数。 （完整的号码） （$ random_num）

我已查看过此网站：http://perlmeme.org/howtos/perlfunc/rand_function.html

这是一个很好的资源，虽然没有做到这一点......

非常感谢任何帮助。感谢。

Answer 1

my $x = $minimum + int(rand($maximum - $minimum));

http://perldoc.perl.org/functions/rand.html

请注意，此范围排除了 $maximum本身。添加1以使其具有包容性。

Answer 2

$random_num = int($minimum + rand($maximum - $minimum));