http://www.perlmonks.org?node_id=181219


in reply to (humor) The first rule of The XP club is...

perl -le 'print "Blame ".${["ar0n", "tye"]}[rand 2]' 

perl -le'print "Blame ", (qw/ar0n tye/)[rand 2]'

[download]
Hmmm... 
perl -le'$foo{ (qw/ar0n tye/)[rand 2] }++ for 1..1000; print "tye was 
+blamed $foo{tye} times.\nar0n was blamed $foo{ar0n} times."'
tye was blamed 516 times.
ar0n was blamed 484 times.

[download]
Sorry, tye :) 

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

In Section Meditations