Как сохранить состояние псевдослучайного генератора в Perl?

Question

Есть ли способ сохранить текущее состояние встроенного генератора псевдослучайных чисел в Perl, чтобы при повторном запуске моей программы он мог выбрать последовательность, от которой она осталась, а не начинать с новой последовательности?

Сейчас я храню, где я нахожусь, а также начальное семя, а затем выбрасывая начальный отрезок, который я уже видел, используя что-то похожее на:

sub consume_upto_n { 
    my ($seed, $n) = @_; 
    $n = 1 unless defined $n and $n >= 1; 
    srand $seed; 
    rand for 1 .. $n - 1; 
    return; 
} 

Например:

srand 0x18; 
my @v = map { rand } 1 .. 5; 

Позже:

consume_upto_n(0x18, 3); 
my @z = map { rand } 3 .. 5; 

Затем $z[0] == $v[2], $z[1] == $v[3] и т. Д.

Answer 1

По perl 5.13.4, srand returns the seed:

srand() теперь возвращает семени

Это позволяет программы, которые должны иметь воспроизводимые результаты не должен придумать свой собственный генерирующие семена механизма. Вместо этого они могут использовать srand() и как-то застрелить возвращение для будущего использования. Типичным является тестовая программа, в которой слишком много комбинаций для всестороннего тестирования за время, доступное для каждого запуска. Он может каждый раз проверять случайное подмножество, и если есть сбой, зарегистрируйте семя, используемое для этого запуска, чтобы впоследствии его можно было использовать для воспроизведения точных результатов.

Answer 2

Я не думаю, что встроенный rand позволяет это сделать. Но вы можете использовать замену rand. Например, Math::Random::MT::Auto позволяет вам serialize its objects (предположительно включая $MRMA::PRNG, который является объектом, который используется его заменой rand).

Я не совсем уверен, в чем дело. Если это достаточно случайная последовательность, как вы можете определить, продолжаете ли вы эту последовательность или начинаете новую?