Улучшенный rand () для Perl

В Perl функции rand () можно указывать только верхнюю границу желаемого числа, в результате чего она возвращает случайное число от нуля до указанного пользователем.
Однако может возникнуть необходимость получить случайное орицательное число, или случайное число на промежутке, например, от 100 до 1000. Вот небольшая модификация функции rand, которая ршает эти проблемы:

sub Random($$){
($from, $to) = @_;
$random = $from + rand(($to - $from));
return $random;
}

Использование:
$var = Random($lower, $upper);

Скачать

Поблагодарить автора

Оставить комментарий

Your email address will not be published. Required fields are marked *

*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>