程嶏清单1-2.txt

< linux网络编程工具>>配套源码

程序清单1-2：hello2.pl
#!/usr/bin/perl  
printf "what ‘s your name?";  
$name=;  
chop($name);  
if ($name eq "perlstar"){  
printf "hello,perlstar welcome! \n";  
} else {  
printf "hello, $name，welcome! \n";  
}