in reply to No data in server file using io::socket
You can nest your connection accepting loop and your
connection reading loop:
while ($client = $server->accept()) { # first get a connection while (<$client>) { # read each line from it print FILE $_; # and write the data to our file } close $client; # then close the connection } # repeat
|
---|
In Section
Seekers of Perl Wisdom