如何在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));