$random = (split/,/,$data{$temp[int(rand($#temp))]})[int(rand(2))];
… don’t you just love gems like this?
January 21st, 2007 Comments Off on perl forever
$random = (split/,/,$data{$temp[int(rand($#temp))]})[int(rand(2))];
… don’t you just love gems like this?