perl好玩的编程1：随机数生成

最新推荐文章于 2022-10-24 21:04:28 发布

原创最新推荐文章于 2022-10-24 21:04:28 发布 · 1.3k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#PERL语言入门 #PERL基础 #编程

perl基础专栏收录该内容

15 篇文章

订阅专栏

本文介绍如何使用Perl编程语言实现一个简单的猜数字游戏，包括游戏规则、代码实现及用户体验。

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

#!/usr/bin/perl -w
#int 为取整
#rand()为获得随机数
#比如int 5.555 会得到5
#rand(5) 会得到0-5中的随机实数
#int rand(5) 会得到0-5中的一个随机整数

while(1){
	print "输入一个数字:";
	$rand_number = int rand(<STDIN>);
	print qq/随机数: $rand_number\n/;
	
}

//上面为int rand的用法

//下面用它写一个猜数字游戏看看效果

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

$statu = 1;
while(1){
	if($statu)
	{
		print qq/猜数字游戏------------\n/;
		print qq/请输入一个随机数的最大值:/;
		$number=<STDIN>;
		$number=int rand $number;
		print qq/生成系统随机数成功\n/;
		$statu = 0;
	}
	print qq/请输入你要猜的数:\n/;
	$guess=<STDIN>;
	if($guess > $number){
	
		print qq/没那么大\n/;
	}
	if($guess < $number){
		print qq/没那么小\n/;
	}
	if($guess == $number){
		print qq/猜对咯\n/;
		print qq/---------------------------------\n/;
		print q/还要继续玩吗(y\/n default 'n')/;
		chomp($yesorno=<STDIN>);
		if(($yesorno eq 'Y') || ($yesorno eq 'y')){
			$statu = 1;
		}
		else{
			print qq/不玩了， 一点也不好玩\n/;
			last;
		}
	}

}

以上代码还有很多要改进的地方。

比如开启警告就没法运行了。