代码之家 › 专栏 › 技术社区 › Sinan Ünür

如何在Perl中存储伪随机生成器的状态?

random-seed srand perl

Sinan Ünür · 技术社区 · 16 年前

有没有一种方法可以将内置的伪随机数生成器的当前状态存储在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] 等。

2 回复 | 直到 12 年前

cjm 16 年前

我不认为内置的 rand 允许你这么做。但是你可以用替代品 兰德 . 例如, Math::Random::MT::Auto 允许您 serialize its objects (大概包括 $MRMA::PRNG ,它是由其替换使用的对象 兰德 )

不过,我不太确定这是什么意思。如果这是一个相当随机的序列,你怎么知道你是继续这个序列还是开始一个新的序列?

Sinan Ünür 15 年前

至于 perl 5.13.4 , srand returns the seed :

srand() 现在返回种子

这使得需要具有可重复结果的程序不必想出自己的种子生成机制。相反,他们可以使用 srand()。 并且以某种方式将回报储存起来以备将来使用。典型的是一个测试程序,它有太多的组合,无法在每次运行的可用时间内进行全面测试。它可以每次测试一个随机子集,如果出现故障,记录用于该运行的种子,以便以后可以使用它来复制准确的结果。

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

1 年前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

1 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

1 年前

nick · 向后交换文件名

1 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

1 年前

con · 如何跳转到foreach迭代的特定点?

1 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

1 年前