Perl Socket server waiting for clients

概述Perl Socket server waiting for clients

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

use IO::Socket;$server = IO::Socket::INET->new(    LocalPort => 1247,Type      => SOCK_STREAM,Reuse     => 1,Listen    => 5 ) or dIE "Could not create server.\n";while ($clIEnt = $server->accept()) {    unless (defined($child_pID = fork())) {dIE "Can not fork.\n"};    if ($child_pID) {        while ($line = <$clIEnt>) {            print "Read this from clIEnt: $line";        }    } else {        while ($line = <>) {            print $clIEnt $line;         }    }    }

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的Perl Socket server waiting for clients全部内容，希望文章能够帮你解决Perl Socket server waiting for clients所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。