Mega Code Archive

 

Categories / Perl / Network

 

A Perl TCP server without the Socket module

#!/usr/bin/perl -w $PF_INET = 2; $SOCK_STREAM = 1; $port = 9999; $pattern = 'S n C4 x8'; # Create an address using 0.0.0.0. $this_addr = pack($pattern,$PF_INET, $port, 0,0,0,0); $proto = getprotobyname("tcp"); socket(SERVER, $PF_INET, $SOCK_STREAM, $proto) or die "Can't create socket: $!"; bind(SERVER, $this_addr) or die "Can't bind: $!"; listen(SERVER,1) or die "Can't listen: $!"; print "Server listening on port $port\n"; for ( ; $paddr = accept(CLIENT,SERVER); close(CLIENT) ) {     print CLIENT "Hello from server.\n"; }