我的第一个Perl

9G%s,a'p;N$_V;F`0学习www.china-pub.com下载的Perl自学24学时文档，第三章练习题51Testing软件测试网3U/|$x-^~i C Z

)Q%R i0L.YUq0 51Testing软件测试网+Q`
ar$r/[-wfh

+{T}-z
m`4X0脚本如下：

#!/usr/bin/perl -w   #编译命令51Testing软件测试网YH#[v9q*yc
print "#####################\n";
x+E*xBM&`3Y1k0print "#PERL学习脚本--猜数字\n";51Testing软件测试网5K"TY
g x}2O*p
print "#Author:qiguojie\n";
h&uE"Go:M{0print "#Date:2007-8-31\n";
fM#@B#k0print "#####################\n";
X.B&r k+bJ%a0print "\n";
{CXv;cy0print "程序在生成随机数……\n";  #命令行提示51Testing软件测试网j0m9h-bXz2j
$rand_num = int(rand 10);      #获取随机数
0F8P"Z,ET'VK4`0print "成功！你猜这个数字是几(1-10):";     #命令行提示51Testing软件测试网}&o UM3a1Pt
$enter = <STDIN>;      #获取输入
?7NaGeIn3iC0chomp $enter;     #去掉换行符
+j!x,xfaQ4h)S0$can = 1;         #符合条件的数字标志51Testing软件测试网4}#aFd+lF%y*K
$w = 0;           #跳出循环标志
#qU.KtX{RC^Ecv0while ($w != 1)51Testing软件测试网+L'Qw$c)s)Z
{51Testing软件测试网 U%R9I@8f
        if ($enter > 10)     #是否大于1051Testing软件测试网PJ\[F+I4?%HB
        {
s:r)`N}NN0                        print "您输入的数字大于10，请输入1-10之间的数:";
/QYVNw0                        $enter = <STDIN>;51Testing软件测试网Bb$g1|h U
                        chomp $enter;
9L,H r(j(f#\U:a#Fn0        }
*t6O/y yTo0        elsif ($enter < 1)    #是否小于151Testing软件测试网q$Z8v0H P%O/uqE
h
        {
@(qZ6g)t!s` XA(~0                        print "您输入的数字小于1，请输入1-10之间的数:";51Testing软件测试网'Y(gs,?5wSUD
                        $enter = <STDIN>;
'Y?C\;}T ]d;n&i0jYX0                        chomp $enter;51Testing软件测试网#b]nli;Y(G U3F
        }51Testing软件测试网8c8e"Pvp!r
        else {$w = 1;}51Testing软件测试网2k5N2FJ'q"o&m
}51Testing软件测试网"OS1KXtY
$ok = 0;
W!~3YnyP6X,[6g0while (($ok != 1) and ($can = 1) )51Testing软件测试网8_ CxeSB$z
{
W!qI3~P/o0by0        if ($rand_num == $enter)    #如果猜的数字是正确的51Testing软件测试网t(V#kny(r
        {51Testing软件测试网'v-E/Tx"_`p"P/\/X`|
                        print "Great!!您猜对了，这个数字是$enter!\n";51Testing软件测试网r.\?d9vJ}
                        $ok = 1;51Testing软件测试网&Nop }F+q
        }51Testing软件测试网K2B|
KbXs
        elsif ($rand_num > $enter)   #如果猜的数字小了51Testing软件测试网 [P$qd`h6_3S#q \B
        {
^MH)IE0                        print "SORRY，您猜小了，请再输入一个大点的数字:";
X?-~*XrGR/r\VZb7N0                        $enter = <STDIN>;
A+z#pz
E0                        chomp $enter;
D:wyD;I4t!Z!{0        }51Testing软件测试网$Jy?VJ%a&U
        else      #如果猜的数字大了51Testing软件测试网rW([ V9KR.V$b:Q/^kUk7Q
        {
?C*ea.Tud0                        print "SORRY，您猜大了，请再输入一个小点的数字:";
W"\/to8J:O x2?8NC0                        $enter = <STDIN>;51Testing软件测试网*VEw.^6oA*iIb!TK
                        chomp $enter;51Testing软件测试网"TDOT%TWr
        }
O0~,{+u9C o/Cf0}