Nginx-ru mailing list archive (nginx-ru@sysoev.ru)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
ngx_http_perl_module + Socket
- To: nginx-ru@xxxxxxxxx
- Subject: ngx_http_perl_module + Socket
- From: "fiva" <nginx-forum@xxxxxxxx>
- Date: Thu, 11 Nov 2010 11:06:03 -0500
- Dkim-signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=mickey.jlkhosting.com; s=x; h=Sender:From:Message-ID:Content-Transfer-Encoding:Content-Type:Subject:To:Date; bh=xBUdOtmtJRvI3hh75LbmHDFaaA2Me209pc8j26rhbUw=; b=Z981QUNE189gpNA15iJ83Z8UkGTxFUbMe1FdcbJPCKBACbXwIzA7OLntxptuY2T6M4DNgWfN3WN4K0NspQZf2ytlcrOJdz1pyl2NKRRhYvoyRo4eO+YYtlqOxgJwuFOE;
Работает ли во встроенном перле чтение
данных из сокета? Делаю запрос к
мемкешу чтоб понять на какой урл
перенаправить дальше, таким обзразом:
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(){
if(/^value/i){
@aKeyVal = split(/ /);
read(MEMSOCK,$retVal,$aKeyVal[3],0);
}
last if(/^end/i);
}
close(MEMSOCK);
return $retVal;
}";
так вот судя по тцпдампу коннект идет,
запрос идет, данные приходят, но в $retVal
ничего не читается.
Может как то по-другому можно получать
из мемкеша урл для перенаправления
(хранить в мемкеше данные для отдачи не
предлагать)?
спасибо.
Posted at Nginx Forum:
http://forum.nginx.org/read.php?21,149819,149819#msg-149819
_______________________________________________
nginx-ru mailing list
nginx-ru@xxxxxxxxx
http://nginx.org/mailman/listinfo/nginx-ru
|