perl的socket问题
perl技术内幕中的例题
#!perl
use IO::Socket;
$server = IO::Socket::INET-> new
(
LocalPort => 1116,
Type => SOCK_STREAM,
Reuse => 1,
listen => 5
) or die "Could not open port.\n ";
while ($client = $server-> accept()){
print "there is a client coming ";
}
为什么server不会挂在那边等待client接入 而是直接结束了程序
迷茫了 向各位请教 谢谢了
[解决办法]
注意listen应该是首字母大写Listent
