note
kennethk
<p>Rigging the shuffle to be identical on a given host is easy -- simply feed a fixed seed to [doc://srand] before your first call to [doc://rand].
<p>This makes variation between hosts easy by simply choosing a host-specific property as your seed -- perhaps a mangled hardware address?
<c>#!/usr/bin/perl -w
use strict;
use 5.10.0;
my ($eth) = `ifconfig` =~ /HWaddr (\S+)/;
$eth =~ s/\W//g;
{
no warnings 'portable';
srand hex $eth;
}
say rand for 1 .. 10;
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-712372">
<hr />
<p>#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.</p>
</div></div>
1007319
1007319