Is this the correct way to avoid getting the same value twice?
# Text colors
@colors = qw[ #F0F8FF #00FFFF #7FFFD4 #F0FFFF #F5F5DC #FFE4C4 #4169E1 #8B4513 #FA8072
#F4A460 #2E8B57 #A0522D ];
# choose a color!
$color_choice1 = rand $#colors;
# make sure we don't get same color twice
$color_choice2 = rand $#colors;
while ($color_choice1 eq $color_choice2){
$color_choice = $color_choice2 = rand $#colors;
last if ($color_choice1 ne $color_choice2);
}
Thx!
Dave
*====================================================*
* Cora Connection Your West African Music Source *
* http://www.coraconnection.com/ *
* Resources, Recordings, Instruments & More! *
*====================================================*
