Mega Code Archive

 

Categories / Perl / Network

 

The server and the client are on the same machine

#!/bin/perl print "Server Started.\n"; $AF_UNIX=1;     # The domain is AF_UNIX $SOCK_STREAM=1; # The type is SOCK_STREAM $PROTOCOL=0;    # Protocol 0 is accepted as the "correct protocol" by most systems. socket(SERVERSOCKET, $AF_UNIX, $SOCK_STREAM, $PROTOCOL) || die " Socket $!\n"; print "socket OK\n"; $name="./greetings";  unlink "./greetings" || warn "$name: $!\n"; bind(SERVERSOCKET, $name) || die "Bind $!\n"; print "bind OK\n"; listen(SERVERSOCKET, 5) || die "Listen $!\n"; print "listen OK\n"; while(1){     accept(NEWSOCKET, SERVERSOCKET ) || die "Accept $!\n";     $pid=fork || die "Fork: $!\n";     if ($pid == 0 ){          print (NEWSOCKET "Greetings from your server!!\n";          close(NEWSOCKET);          exit(0);     }else{         close (NEWSOCKET);     } }