《Perl语言入门》第四版习题（10）

最新推荐文章于 2024-09-23 18:10:59 发布

原创最新推荐文章于 2024-09-23 18:10:59 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#perl #语言 #random

perl 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一个使用Perl语言编写的简单猜数字游戏程序。该程序能够随机生成一个1到100之间的数字，并引导用户通过不断尝试来猜中这个数字。如果用户猜测的数字过高或过低，程序会给出相应提示；若用户输入'quit'或'exit'则退出程序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1. [25]写一个程序，能重复要求用户猜测某个在1 到100 之间的数字，直到猜对为止。你的程序应当能随机的产生一个
数字，使用公式int(1 + rand 100)◆。当用户猜测错误时，程序应该回应“Too high”或者“Too low”。如果用户输入quit
或exit，或者回车时，程序应立即退出。如果用户猜测正确，程序也退出。

1、

#!/usr/bin/perl -w
use strict;

my $random=int(1+ rand 100);
print "The random number is:$random;/n";
print "Please enter:";
while(<STDIN>){
        last if(/exit|quit/i);
        if($_>$random){
                 print "Too High, please enter again!/n";
                }
        elsif($_<$random){
                print "Too Slow;/n";
                }
        else{
                print "Right!/n";
                last ;
                }
        print "Please enter again:";
}