Dear Team,
I am a newbie to PERL,
I was studying about the Socket programming in perl and I was Doing a Sample
Programs using IO::Socket
I have Written a Sample Server Client program and it works great,
Now, the Problem is that the server is able to listen on Some ports and when
the client sends any message,
the server is able to Print the message and exiting , But what i want is
that the server should able to listen continuosly
after printing that message.
Can Anyone help me how to do this
Thanks in Advance
THIS IS SERVER PROGRAM
###################################
#!/usr/bin/perl
use IO::Socket;
my $sock = new IO::Socket::INET (
LocalHost => '192.168.0.217',
LocalPort => '3890',
Proto => 'tcp',
Listen => 1,
Reuse => 1,
);
die "Could not create socket: $!\n" unless $sock;
my $new_sock = $sock->accept();
while(<$new_sock>) {
print $_;
}
close($sock);
#######################################
--
*Anand *
