Mega Code Archive

 

Categories / Perl / Network

 

Socket pair

use Socket; use IO::Handle; socketpair(CHILDHANDLE, PARENTHANDLE, AF_UNIX, SOCK_STREAM, PF_UNSPEC)     or  die "Could not create socketpair."; CHILDHANDLE->autoflush(1); PARENTHANDLE->autoflush(1); if ($pid = fork) {     close PARENTHANDLE;     print CHILDHANDLE "the parent!\n";     $line = <CHILDHANDLE>;     print "Parent: $line";     close CHILDHANDLE;     waitpid($pid,0); } else {     close CHILDHANDLE;     $line = <PARENTHANDLE>;     print "Child : $line";     print PARENTHANDLE "from the child!\n";     close PARENTHANDLE;     exit; }