[Bio] / ClusterTools / log_server.pl Repository:
ViewVC logotype

View of /ClusterTools/log_server.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Tue Mar 1 16:44:36 2005 UTC (14 years, 8 months ago) by olson
Branch: MAIN
CVS Tags: HEAD
log4perl simple server.

use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
				 Listen    => 5,
				 LocalPort => 12345,
				 Proto     => 'tcp');

while(my $client = $sock->accept()) {
    print "Client connected\n";
    while(<$client>) {
	print "$_\n";
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3