[Omaha.pm] quick n dirty rand()
Jay Hannah
jay at jays.net
Thu Jul 14 19:13:55 PDT 2005
On Jun 09, 2005, at 20:50, Andy Lester wrote:
> On Thu, Jun 09, 2005 at 06:04:16PM -0500, Jay Hannah
> (jhannah at omnihotels.com) wrote:
>> Before
>>
>> my $rand = int(rand(3))+1;
>> my $imagename = "sean.jpg";
>> $imagename = "jay.jpg" if ($rand == 2);
>> $imagename = "airplane.jpg" if ($rand == 3);
>>
>> After
>>
>> my $imagename = ("sean.jpg", "jay.jpg", "airplane.jpg")[(int rand
>> 3)];
>
> Better yet:
>
> my @images = qw( sean.jpg jay.jpg airplane.jpg );
> my $random_image = $images[rand @images];
Thanks! We ended up putting this "in production":
my $imagename = ("sean.jpg", "jay.jpg", "airplane.jpg")[(int rand 3)];
Grin,
j
More information about the Omaha-pm
mailing list