Math::Random::MT - Generates pseudo - random numbers close to natural random numbers
A good algorithm for generating pseudo-random numbers is the Mersenne Twister method .
The module that finds pseudo-random numbers by the Mersenne Twister method is Math::Random::MT . You can get it from CAPN.
use Math::Random::MT qw/rand srand/; srand time ^ $$; my $num = rand 100
Used in the same way as the standard Perl modules rand function and srand function can. When using Math::Randam::MT, make sure to call the srand function explicitly.
time function is the time, and $$is process ID, which is the initial value given to srand. I try to make the values as random as possible.
Example
This is an example using Math::Randam::MT.
use strict; use warnings; use Math::Random::MT qw/rand srand/; print "(1) Generates a random random number.\n"; # Give as random an initial value as possible. srand time ^ $$; for my $i (1 .. 20) { print "$i times:". Int (rand 100) . "\n"; } print "\n";