要求,让用户不断猜测范围1-100的数字,直到猜中为止。程序需要用到一个随机数字公式:int(1 + rand 100), 当用户猜错时,程序应该提示Too hight 或者 Too low, 如果用户键入quit或者exit等字样,或是键入一个空白行,程序就应该中止。用户猜到了,提示猜对了,并且立即退出。
- #! /usr/bin/perl
- my $n = int (1 + rand 100);
- while (1) {
- print "Please guess a number(1-100): ";
- chomp (my $i = );
- if ($i =~ /\d+/ && $i > 0 && $i < 100) {
- if ($i > $n) {
- print "Too hight\n";
- } elsif ($i < $n) {
- print "Too low\n";
- } else {
- print "Wright\n";
- last;
- }
- } elsif ($i =~ /^(exit|quit|\s+)$/) {
- last;
- } elsif ($i eq undef) {
- last;
- } else {
- redo;
- }
- }
编辑回复