#!/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;
}
}
}
以上代码还有很多要改进的地方。
比如开启警告就没法运行了。