⑧安薇理工大学 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";