Предположим, я установил два соединения в Perl с помощью IO::Socket
. Первый имеет сокет $s1
, а второй - сокет $s2
.
Любые идеи, как их соединить, чтобы все, что получено от $s1
, было отправлено на $s2
, а то, что получено от $s2
, отправлено на $s1
?
Я не могу понять, как это сделать. Я не знаю, как их соединить. Я ожидал бы сделать что-то вроде $s1->stdin = $s2->stdout
и $s2->stdin = $s1->stdout
, но в Perl таких конструкций нет.
Пожалуйста, помогите мне!
Спасибо, Бода Чидо.