How can I store the state of the pseudo-random generator in Perl?
问题 Is there a way to store the current state of the built in pseudo-random number generator in Perl so that when my program is run again, it can pick up the sequence from where it left off rather than starting with a new sequence? Right now, I am storing where I am as well as the initial seed and then throwing away the initial segment which I have already seen using something similar to: sub consume_upto_n { my ($seed, $n) = @_; $n = 1 unless defined $n and $n >= 1; srand $seed; rand for 1 .. $n