安藏理工大学 4.1.3猜测密码 >现在已经可以对admin发不同的欢迎辞，但如何加上密码 来控制权限呢？比如说，可以让除admin以外的人都必须 输入密码直到正确为止： #!/usr/bin/perl $password=:"wsxy";#密码为wsXy printf"请问您的姓名？"； $name=<STDIN>; chop(Sname); if($name eq“admin")K printf"欢迎admin进入本系统n", 77 4.1.3 猜测密码 ➢ 现在已经可以对admin发不同的欢迎辞，但如何加上密码 来控制权限呢？比如说，可以让除admin以外的人都必须 输入密码直到正确为止： #!/usr/bin/perl $password="wsxy"; #密码为wsxy printf "请问您的姓名?"; $name=<STDIN>; chop($name); if ($name eq “admin"){ printf "欢迎admin进入本系统!\n";