Работает ли во встроенном перле чтение данных из сокета? Делаю запрос к мемкешу чтоб понять на какой урл перенаправить дальше, таким обзразом:
perl_set $feed_redir "sub {
use Socket ;
$r = shift;
$sKey = $r->uri;
socket(MEMSOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$iaddr = inet_aton('127.0.0.1');
$paddr = sockaddr_in(11211, $iaddr);
setsockopt(MEMSOCK, SOL_SOCKET, SO_SNDTIMEO, pack('LL', 0, 500) ) or return '';
setsockopt(MEMSOCK, SOL_SOCKET, SO_RCVTIMEO, pack('LL', 0, 500) ) or return '';
connect(MEMSOCK, $paddr);
print MEMSOCK 'get '.$sKey.'\r\n' ;
while(<MEMSOCK>){
if(/^value/i){
@aKeyVal = split(/ /);
read(MEMSOCK,$retVal,$aKeyVal[3],0);
}
last if(/^end/i);
}
close(MEMSOCK);
return $retVal;
}";
так вот судя по тцпдампу коннект идет, запрос идет, данные приходят, но в $retVal ничего не читается.
Может как то по-другому можно получать из мемкеша урл для перенаправления (хранить в мемкеше данные для отдачи не предлагать)?
спасибо.