1. #!/usr/bin/perl  
  2.  
  3. use strict;  
  4.  
  5. my $count=0;  
  6.  
  7. print "please input a number between 0-10000 which is int.\n";  
  8.  
  9. $rand_num=int (rand(10000));  
  10.  
  11. do{   
  12.  
  13.         $count++;  
  14.  
  15.         chomp( $input_num=<>);  
  16.  
  17.  
  18.         if ($input_num >$rand_num){  
  19.  
  20.                 print "You enter the nubmer is lager than real number.please go on\n";  
  21.  
  22. }  
  23.  
  24.         else { print "you enter the nubmer is smaler than real number.please go on\n";}  
  25.  
  26. }while ($input_num != $rand_num);  
  27.  
  28.  
  29. print "Right,you only use $count step to cmp!\n"; 
 
  
自己自学perl以来，自己写的第一个perl程序。在网上看到别人写的一个猜数游戏，知道其原理后，自己也写了一段代码。欢迎大家拍砖。