2010/9/28 Anand Parthiban <[email protected]>:
> my $new_sock = $sock->accept();
> while(<$new_sock>) {
> print $_;
> }
> close($sock);
> #######################################
> --
Put them in a forever loop, like:
while(1) {
my $conn = $sock->accept();
print <$conn>;
}
etc.
You may want to buy the book "Network Programming with Perl" for any
detail about socket programming.
Jeff.
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
