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

bearfly1990

于 2011-10-25 22:54:07 发布

阅读量629

点赞数

分类专栏： perl 文章标签： perl internet join

本文链接：https://blog.csdn.net/bearfight/article/details/6905596

版权

perl 专栏收录该内容

1 篇文章

订阅专栏

#!/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";