Как создать случайное число между двумя номерами в Perl

Я видел много других способов сделать это на других языках программирования... Хотя я еще не нашел его в Perl...

Что я хочу сделать, так это установить два числа:

$minimum = 100;
$maximum = 4000;

Затем, чтобы создать случайное целое число между этими двумя. (целое число) ($ Random_num)

Я просмотрел этот сайт: http://perlmeme.org/howtos/perlfunc/rand_function.html

Какой хороший ресурс, хотя он не делает именно этого...

Любая помощь будет принята с благодарностью. Спасибо.

Ответы

Ответ 1

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

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

Обратите внимание, что этот диапазон исключает сам $maximum. Добавьте 1, чтобы включить его.

Ответ 2

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