On Wed, 11 Apr 2001, Simon Cozens <fwp@simon-cozens.org> wrote, > On Wed, Apr 11, 2001 at 10:07:28AM -0300, Filipe Brandenburger wrote: > > The one I've got is 60 chars: > > echo|perl -pe "@a=(A..Z,a..z,0..9);eval's##\$a[rand@a]#;'x8" > > A case of being too clever for your own good. This is also 60 chars, > and doesn't use an external process. :) > perl -e '@a=(A..Z,a..z,0..9);$x.=$a[rand@a]for 0..8;print$x' > > Of course, then there's *really* clever: > perl -e 'print substr crypt(rand,$$),2,8' > Anyone can see then, perl -e 'print substr crypt(rand,0),5' s.a.n -- Trabas - hasant@trabas.com - http://www.trabas.com/ ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe