In Perl, given two IO::Socket's how do I connect 1st socket's input to 2nd's output and vice versa?

Question

Suppose I have made two connections in Perl with the help of IO::Socket. The first has socket $s1 and the second has socket $s2.

Any ideas how can I connect them together so that whatever gets received from $s1 got sent to $s2 and whatever gets received from $s2 got sent to $s1?

I can't understand how to do it. I don't know how to connect them together. I would expect to do something like $s1->stdin = $s2->stdout and $s2->stdin = $s1->stdout, but there are no such constructs in Perl.

Please help me!

Thanks, Boda Cydo.

Answer 1

How about

$s2->print( $_ ) while <$s1>;

Answer 2

If you are dealing with binary data, you need to know what size chunks to read and write. Lets say you are dealing with 512 byte chunks:

my $buffer;
while (read $s1 => $buffer, 512) { # read up to 512 bytes
    print $s2 $buffer;
} 

I am not sure if pipe works with sockets, but if so:

pipe $s1 => $s2;
pipe $s2 => $s1;

"might" work. I don't have much experience with the pipe function.

Edit:

As mentioned in a comment, you seem to be trying to create an HTTP proxy. CPAN already has several modules that can do this for you. A quick search turns up:

• HTTP::Proxy
• Net::Proxy
• And many more...