练习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(//,$ha
原创
2011-10-25 22:54:07 ·
598 阅读 ·
0 评论