Hi Anand, On Tuesday 28 September 2010 06:52:26 Anand Parthiban wrote: > Dear Team, > > I am a newbie to PERL,
See http://perl.org.il/misc.html#pl_vs_pl . > > 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 Add "use strict;" and "use warnings;". See: http://perl-begin.org/tutorials/bad-elements/ for more information. > use IO::Socket; > my $sock = new IO::Socket::INET ( This should be IO::Socket::INET->new( > LocalHost => '192.168.0.217', > LocalPort => '3890', > Proto => 'tcp', > Listen => 1, > Reuse => 1, > ); Your code needs indentation and empty lines between paragraphs. > die "Could not create socket: $!\n" unless $sock; > my $new_sock = $sock->accept(); > while(<$new_sock>) { > print $_; > } > close($sock); I believe you're accepting one connection (which blocks further connections), handling it, and afterwards exiting from the program. If you want to handle one connection at a time you can do while (my $new_sock = $sock->accept()) { ... }. If you wish to handle several simultaneous connections, look at POE, IO::Async, AnyEvent, IO::Lambda,.... Reflex on the CPAN. Regards, Shlomi Fish -- ----------------------------------------------------------------- Shlomi Fish http://www.shlomifish.org/ "Star Trek: We, the Living Dead" - http://shlom.in/st-wtld <rindolf> She's a hot chick. But she smokes. <go|dfish> She can smoke as long as she's smokin'. Please reply to list if it's a mailing list post - http://shlom.in/reply . -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
