So what part are you having trouble with???? Tell us what you don't understand.
-Joe --- "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> wrote: > Strolling thru' Learning Perl and already have a few q's in mind: > > I couldn't quite follow this program off the book. The parts not > quite > clear to me are (the hwole program is given below): > > $i = 0; > $correct = "maybe"; { > while ($correct eq "maybe") > { > if ($words[$i] eq $guess){ > $correct = "yes"; > } > elsif ($i < 2) { > $i = $i + 1; > Anyone would like to help? > > > ----------------------the whole program----------------------- > #!/usr/bin/perl > @words = qw (llama camel alpaca); > print "what is your name\n"; > $name = <stdin>; > chomp $name; > if ($name eq "tan") { > print "hey man\n"; > } > else > { > print "hi, $name\n"; > print "enter the password\n"; > $guess = <stdin>; > chomp $guess; > $i = 0; > $correct = "maybe"; { > while ($correct eq "maybe") > { > if ($words[$i] eq $guess){ > $correct = "yes"; > } > elsif ($i < 2) { > $i = $i + 1; > } > else > { > print "wrong. try again\n"; > $guess = <stdin>; > chomp $guess; > $i = 0; > } > } > }} > #EOF. > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > __________________________________________________ Do You Yahoo!? Yahoo! Health - Feel better, live better http://health.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]