Код:#!/usr/local/bin/perl
use warnings;
use strict;
use IO::Socket;
our $sock = new IO::Socket::INET(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp') or die "Can't connect\n";
our $slink = \$sock;
while (my $input = <$sock>) {
chomp $input;
$input =~ s/(\r|\n)//gs;
if ($input =~ /^DATA(.*)$/i) {
sock_data_work($input);
}
}
sub sock_data_work {
...
if (...) {
print $sock "line\n";
while (my $inp =<$$slink>) {
....
}
}
}
Суть: есть скрипт, слушающий сокет и обрабатывающий приходящие данные. При наступлении условия вызывается функция sock_data_work, которой передаются все данные из сокета, подхлдящие под регулярку. Внутри этой функции я хочу получить доступ ко всем данным сокета.
Если пробовать в лоб - while (my $inp = <$sock>) - то есть слушать тот же сокет по тому же объекту - в $inp приходят только те данные, которые удовлетворяют регулярке ^DATA(.*)$, но не остальные.
По ссылке как выше - не работает в принципе.
Подскажите, как организовать что-то подобное.
Вариант для распечатки
