Ken's blog
mostly on computers and mathematics
Sunday, March 24, 2013
[xmaaaimj] Random numbers for shell scripts
#!perl -lw
# This is more random than bash's $RANDOM variable
open URANDOM, "/dev/urandom" or die; $bytes=2; die unless(read(URANDOM,$x,$bytes)==$bytes); print unpack("S",$x)&32767
No comments :
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments ( Atom )
No comments :
Post a Comment