Hrm, try this: @tea = "Meba", "Shaun", "Mark", "Jason", "Rick", "Dan"; srand (time ^ $$ ^ unpack "%L*", `ps axww | gzip`); print "$tea[rand(5)]\n";
On Wednesday 27 March 2002 03:25 pm, you wrote: > I decided to write a little script to help choose who will make the tea on > our gaming night [there is always an argument!] > > I thought I was doing quite well but it seems I am picked on by the > [non]random script I wrote! It seems to default to the first word in the > array. > > I used rand @array; > > I think perhaps that I am thinking about it too simply and perhaps I need > to involve more math - but I am not good at maths [though I am willing and > a quick learner...lol] ! so can anyone point me in the right direction? > > #!c:/perl/perl.exe > > @tea = "Meba", "Shaun", "Mark", "Jason", "Rick", "Dan"; > > #below is the problem area I think - perhaps rand is not appropriate here? > #or I haven't phrased it right? > #I have looked through masses of documentation and faqs but can't find a > thing. > #Am I blind or just dim? > > $get = rand @tea; > $who = $tea[$get]; > > $affirm = "The lucky tea maker is "; > > $result = $affirm.$who; > > $fail = "Sorry I wasn't listening. Try again!\n"; > > print "Enter y to see who will make the tea: "; > $input = <STDIN>; > chomp $input; > > > if ($input eq "y") { > $a= true; > } > > if ($a) {print $result > } > else > { > print "$fail" }; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]