学步园

服务端：

#!/usr/bin/perl -w<br /> use strict;<br /> use warnings;<br /> use IO::Socket;<br /> my $server = IO::Socket::INET->new(<br /> Proto => 'tcp',<br /> LocalPort => 8125,<br /> Listen => 1,<br /> Reuse => 1,<br /> ) or die $!;</p> <p>while (my $client = $server->accept())<br /> {<br /> $client->autoflush(1);<br /> print "Welcome " . $client->peerhost . "/n";</p> <p> my $pid = open(my $fh_read, "-|") or warn $!;<br /> if ($pid)<br /> { # parent<br /> while (<$fh_read>)<br /> {<br /> print $client $_ or die $!;<br /> }<br /> #close($fh_read) || warn "kid exited $?";<br /> }<br /> else<br /> { # child<br /> exec("date")<br /> || die "can't exec program: $!";<br /> }<br /> print $client "Goodbye./n";<br /> #$client->close();<br /> }</p> <p>$server->close();

1.在while循环条件中，将$client定义为私有my，可以防止最后忘记close($client);，从而导致客户端阻塞。

   注意要在while循环条件中定义成my，如果在外面定义成私有，最后还是需要调用close($client)。

　open也有这样的用法，将文件描述符$fh定义为私有my，最后程序也会自动close($fh)。

   以上程序的close()，我都屏蔽了，程序正常运行。

2.不知道为什么，我在open一个管道时，会报Illegal seek，至今原因不明。

   打开一个管道也可以用pipe，不过我习惯open这种方式，“-|”表示打开读的管道，“|-”表示打开写的管道。

3.向客户端发送数据时，记得最后一定要有回车分隔。

   print $client $_中的$_是由exec结果所得，该字符串默认有/n结尾。

客户端：

#!/usr/bin/perl -w<br /> use strict;<br /> use warnings;<br /> use IO::Socket;<br /> my $host = '135.242.102.32';<br /> my $socket = IO::Socket::INET->new(<br /> Proto => 'tcp',<br /> PeerAddr => $host,<br /> PeerPort => 8125,<br /> ) or die $!;<br /> $socket->autoflush(1);<br /> #while ( <$socket> ) { print }<br /> print <$socket>;<br /> close $socket;

客户端比较简单，接受服务端的消息方法有

1.单条消息用  my $message = <$server>;

2.多条消息用  my @message = <$server>;