练习perl的数组操作 hangman 猜字母

#!/user/bin/perl -w@words = qw(internet answers printer program);@guesses=();$wrong = 0;$choice = $words[rand @words];$hangman = "0-|--<<";@letters = split(//,$choice);@hangman = split(//,$hangman);@blankword = (0) x scalar(@hangman);OUTER: while($wrong < @hangman){foreach $i (0..$#letters){if($blankword[$i]){print $blankword[$i];}else{print"-";}}print "\n";if($wrong){print @hangman[0..$wrong-1];}print"\n Your Guess:";$guess=<STDIN>; chomp $guess;foreach(@guesses){next OUTER if ($_ eq $guess);}$right = 0;for($i = 0; $i < @letters; $i++){if($letters[$i] eq $guess){$blankword[$i] = $guess;$right = 1;}}$wrong++ unless(not $right);if(join ('',@blankword) eq $choice){print "You got t right!\n";exit;}}print "$hangman\n Sorry,the word was $choice.\n";