[总结]IPC之管道

服务端：

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

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

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

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