perl写的猜数游戏

发布时间：2020-12-16 00:42:11 所属栏目：大数据来源：网络整理

导读：? #!/usr/bin/perl ? ? use?strict; ? ? my?$count= 0 ; ? ? print ? "please?input?a?number?between?0-10000?which?is?int.n" ; ? ? $rand_num=int?(rand( 10000 )); ? ? do{? ? ? ????????$count++; ? ? ????????chomp(?$input_num=); ? ? ? ???????? if

 
 
#!/usr/bin/perl ?
  
  ?
  
  
use?strict; ?

  
  ?
  
  
my?$count=0; ?

  
  ?
  
  
print?"please?input?a?number?between?0-10000?which?is?int.n"; ?

  
  ?
  
  
$rand_num=int?(rand(10000)); ?

  
  ?
  
  do{? ?
  
  ?
  
  ????????$count++; ?
  
  ?
  
  ????????chomp(?$input_num=<>); ?
  
  ?
  
  ?
  
  
????????if?($input_num?>$rand_num){ ?

  
  ?
  
  
????????????????print?"You?enter?the?nubmer?is?lager?than?real?number.please?go?onn"; ?

  
  ?
  
  } ?
  
  ?
  
  
????????else?{?print?"you?enter?the?nubmer?is?smaler?than?real?number.please?go?onn";} ?

  
  ?
  
  
}while?($input_num?!=?$rand_num); ?

  
  ?
  
  ?
  
  
print?"Right,you?only?use?$count?step?to?cmp!n";?

自己自学perl以来，自己写的第一个perl程序。在网上看到别人写的一个猜数游戏，知道其原理后，自己也写了一段代码。欢迎大家拍砖。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!