How to take multiple lines of input in PERL?

Question

I'm looking for some good documentation on how to handle multiple TCP connections at the same time. Already have the book Network Programming with Perl (Lincoln D. Stein)

Having a client / server based script that works with a single stream of network data in a single session e.g. a mail server that spawns a new process for every session, I get how that works.

But when I want to do multiple read/write sessions over different sockets I get totally lost.. Looked into IO::select and stuff but I'm just missing some good simple clean examples.

Example.. Client connects to server.. Server keeps sending messages that are passed to the client. Client connects to 2nd source.. And needs to read/write to both the server and to the 2nd source..

Answer 1

You can use perl's $/ variable to define an record separator. The default is "\n", but you can change it, say you want to change it to "#" in a line.

Sample Code

$/ = "\n#\n";

while (<STDIN>) {
    chomp;
    print "You entered: $_\n";
}