server4.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:55 2010 from server4.pl 2005/05/05 1.4 KB.

#!/perl
use IO::Socket;
#####################################
# Server Script: Copyright 2003 (c) Philip Yuson 
# (c) 2005 geoff mclane
# this program is distributed according to 
# the terms of the Perl license
# Use at your own risk
#####################################
my $hdr = 'SERVER:';
my $host = shift || 'localhost';
my $port = shift || '8081';  # Change the port if 8081 is being used
print "$hdr Creating tcp socket to host=$host, on port=$port ...\n";
my $local = IO::Socket::INET->new(
      Proto    => 'tcp',      # protocol
      LocalAddr => "$host:$port", ## 'localhost:8081' # Host and port to listen to
      Reuse => 1
      ) or die "$!";
print "$hdr Setting a listen ...\n";
$local->listen();   # listen
print "$hdr Setting auto-flush ...\n";
$local->autoflush(1);   # To send response immediately
print "$hdr At your service. Waiting...\n";
my $addr;   # Client handle
while ($addr = $local->accept() ) {   # receive a request
   print    "$hdr Connected from: Host: ", $addr->peerhost();   # Display messages
   print   " Port: ", $addr->peerport(), "\n";
   my $result;      # variable for Result
   print "$hdr Waiting for a command ...\n";
   while (<$addr>) {   # Read all messages from client 
 # (Assume all valid numbers)
      last if m/^end/gi;   # if message is 'end' 
 # then exit loop
      print "Received: $_";   # Print received message
      $local->send("ACK\n");
   }
}
# EOF

index -|- top

checked by tidy  Valid HTML 4.01 Transitional