程嶏清单1-2.txt

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

程序清单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";  
}