Socket pair : Server « Network « Perl

1. Perl
2. Network
3. Server

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;
}

   
    
    
    
  

Related examples in the same category