⑧安薇理工大学 ANHUI UNIVERSITY OFSCIENCE TECHNOLOG 413猜测密码 >现在已经可以对 admin发不同的欢迎辞,但如何加上密码 来控制权限呢?比如说,可以让除admn以外的人都必须 输入密码直到正确为止: i!/usr/bin/perl $ password="wsxy";#密码为wsxy printf"请问您的姓名?; Sname=<sTAINS: chop(sname); if($ name eg“ admin" prnt"欢迎 admin进入本系统!n";
7 4.1.3 猜测密码 ➢ 现在已经可以对admin发不同的欢迎辞，但如何加上密码 来控制权限呢？比如说，可以让除admin以外的人都必须 输入密码直到正确为止： #!/usr/bin/perl $password="wsxy"; #密码为wsxy printf "请问您的姓名?"; $name=<STDIN>; chop($name); if ($name eq “admin"){ printf "欢迎admin进入本系统!\n";
⑧安薇理工大学 ANHUI UNIVERSITY OFSCIENCE TECHNOLOG >else i printf"你好,$name!n请输入密码:"; Suess=<STDIN>; chop(guess while($guess ne $password printf"密码错误,请重新输入:" Guess=<STDIN chop(Guess); 8
8 ➢ } else { printf "你好, $name!\n 请输入密码："; $guess=<STDIN>; chop($guess); while ($guess ne $password){ printf "密码错误，请重新输入："; $guess=<STDIN>; chop($guess); }
⑧安薇理工大学 ANHUI UNIVERSITY OFSCIENCE TECHNOLOG 这里先将密码保存在标量变量$ password中,然后当不 是zmd登录后,先显示欢迎语句,然后要求输入密码,通 过ne操作符将输入结果和$ password相比较,密码相同 则退出,不同则一直循环下去
9 ➢ 这里先将密码保存在标量变量$password中，然后当不 是zmd登录后，先显示欢迎语句，然后要求输入密码，通 过ne操作符将输入结果和$password相比较，密码相同 则退出，不同则一直循环下去
⑧安薇理工大学 ANHUI UNIVERSITY OFSCIENCE TECHNOLOG >当运行程序时,Perl的内部编译器首先遍历整个源程序, 把它转变为内部的字节码,它是程序的一种内部数据结 构。Per的字节码引擎将运行这些字节码。 10
10 ➢ 当运行程序时，Perl的内部编译器首先遍历整个源程序， 把它转变为内部的字节码 ，它是程序的一种内部数据结 构。Perl的字节码引擎将运行这些字节码
⑧安薇理工大学 ANHUI UNIVERSITY OFSCIENCE TECHNOLOG 4.2标量数据 >标量是Perl中最简单的数据类型。大多数的标量是数字 (如255或325e20)或者字符串(如helo◆或者盖茨 堡地址) 标量数据可有操作符(如相加和串联),通常会产生一个 新的标量数据。标量数据的值可以存放在标量变量中。标 量可以从文件或设备读取,也可以写进去
11 4.2 标量数据 ➢ 标量是 Perl 中最简单的数据类型。大多数的标量是数字 （如 255 或 3.25e20）或者字符串 （如 hello◆或者盖茨 堡地址） 。 ➢ 标量数据可有操作符（如相加和串联），通常会产生一个 新的标量数据。标量数据的值可以存放在标量变量中。标 量可以从文件或设备读取，也可以写进去