perl 猜随机数

下面的程序实现一个猜随机数的功能，首先程序提示你输入一个随机数的种子，然后让你猜这个随机数是多少，如果猜不对，继续猜，如果猜对，程序退出。下面的程序中保留了打印出随机数的语句，主要是为了调试，你也可以将该语句去掉：#print "The rand number is : $rand_number\n";
这个程序主要是通过next和last语句实现循环和结束循环的功能。关于next和last语句的使用，我们在前面的文章中都讲过了，现在就不再多说了，下面的程序也很简单，基本上都能看得懂的，如果有问题，可以直接给我留言。

perl

#!/usr/bin/perl
use strict;
use warnings;
print "Please input the seed:";
my $seed = <STDIN>;
chomp($seed);
my $rand_number = int(rand $seed);
#可以讲下面的print语句注释掉
print "The rand number is : $rand_number\n";
LOOP:while(1)
{
    my $guess = <STDIN>;
    chomp($guess);
    if($guess > $rand_number)
    {
        print "You input is:$guess, It's too High\n";
        next LOOP;
    }
    elsif($guess < $rand_number)
    {
        print "You input is:$guess, It's too Low\n";
        next LOOP;
    }
    else
    {
        print "You input is:$guess, It's Right\n";
        last;
    }
}

perl 猜随机数

延伸阅读

评论

发表评论