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

本文介绍如何使用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;
		}
	}

}


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

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



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值