程嶏清单1-3.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 23 行

程序清单1-3：hello3.pl
#!/usr/bin/perl  
$password="wsxy";  #密码为wsxy  
printf "what ‘s your name?";  
$name=;  
chop($name);  
if ($name eq "perlstar")
{
　   printf "hello ,perlstar,welcome! \n";  
}
else
{
　   printf "hello, $name!\n please enter password：";  
　   $guess=;  
　   chop($guess);  
while ($guess ne $password)
{
printf "password error ，enter again：";  
　 $guess=;  
　 　chop($guess);  
　　}
}