note
crazyinsomniac
An option is to use [splice]. It's probably not the most efficient (you can always benchmark to make sure), but otherwise you can't get away with a single pass (at least not using rand, there probably is a perl module to only spit out unique random values, but its destined to be less efficient than just keeping track yourself).
<P> <BR><TABLE CELLPADDING=0 CELLSPACING=3 BORDER=0 BGCOLOR="#FFFFFF"><TR><TD><a href="/index.pl?node=crazyinsomniac&lastnode_id=1072"><FONT SIZE=4 COLOR="#333333">______craz<b><i>y</i></b>insomniac_____________________________</a><br><TT><A HREF="http://www.ozzyosbourne.com/"><FONT COLOR="#DDDDDD" SIZE=2>Of all the things I've lost, I miss my mind the most.</A></TT></FONT><BR><A HREF="http://www.divisionbyzero.com/burningman"><FONT COLOR="#999999" SIZE=2><TT>perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;" </TT></FONT></A></TD></TR></TABLE>
172400
172400