练习perl的数组操作 hangman 猜字母
2011-10-25 22:54
441 查看
#!/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";
相关文章推荐
- perl-basic-数组操作
- 【matlab】练习2:矩阵和数组的一般操作
- Perl中的数组操作
- Perl中的数组操作
- perl练习——FASTA格式文件中序列GC含量计算&perl数组排序如何获得下标或者键
- 操作Perl数组: shift, unshift, push, pop
- 黑马程序员—操作数组的练习:十进制数转换二进制、八进制、十六进制数。
- 操作Perl数组: shift, unshift, push, pop
- Perl学习(十二)——数组定义操作总结
- C的试验田-指向数组的指针练习,并对数组内的字母大小转化
- 数组操作及练习
- 7个perl数组高级操作技巧分享
- Perl中数组的delete操作
- Scala练习三数组相关操作
- 书后练习--字符串数组操作(综合练习1-16 到 1-19)
- Perl中数组的delete操作
- Java基本功练习五(一维数组相关操作[声明、创建、乱序、排序、查找]和方法的重载举例[浅议])
- 每天一个java练习之数组常用操作(1)
- Perl学习(十三)——数组操作总结 push pop shift unshift
- 牛客网《JavaScript》能力评测练习1--数组的操作