Wie kann ich den Zustand des Pseudozufallsgenerators in Perl speichern?

Question

Gibt es eine Möglichkeit, den aktuellen Zustand des eingebauten Pseudozufallszahlengenerators in Perl zu speichern, so dass, wenn mein Programm erneut ausgeführt wird, es die Sequenz von dort wieder aufnehmen kann, statt mit einer neuen Sequenz zu beginnen?

Gerade jetzt, ich bin zu speichern, wo ich als auch die anfängliche Samen bin und dann das Anfangssegment Wegwerfen, die ich schon etwas mit ähnlich gesehen haben:

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

Zum Beispiel:

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

Später:

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

Dann $z[0] == $v[2], $z[1] == $v[3] usw.

Answer 1

Ab perl 5.13.4, srand returns the seed:

srand() gibt nun den Samen

Diese Programme erlauben die wiederholbaren Ergebnisse nicht mit ihrem eigenen Samen Erzeugungsmechanismus zu kommen, müssen haben müssen. Stattdessen können sie srand() verwenden und irgendwie die Rückkehr für zukünftigen Gebrauch verstauen. Typisch ist ein Testprogramm, das zu viele Kombinationen hat, um in der ihm zur Verfügung stehenden Zeit jeden Lauf umfassend zu testen. Er kann jedes Mal eine zufällige Teilmenge testen und bei einem Fehler den für diesen Lauf verwendeten Startwert protokollieren, damit er später zur Reproduktion der genauen Ergebnisse verwendet werden kann.

Answer 2

Ich glaube nicht, dass die integrierte rand können Sie das tun. Aber Sie können einen Ersatz rand verwenden. Zum Beispiel ermöglicht Ihnen serialize its objects (vermutlich einschließlich $MRMA::PRNG, das ist das Objekt, das durch seinen Ersatz rand verwendet wird).

Ich bin nicht ganz sicher, was der Punkt ist, obwohl. Wenn es eine einigermaßen zufällige Reihenfolge ist, wie können Sie dann feststellen, ob Sie diese Sequenz fortsetzen oder eine neue Sequenz starten?