ПРОЕКТЫ 


  АРХИВ 


Apache-Talk @lexa.ru 

Inet-Admins @info.east.ru 

Filmscanners @halftone.co.uk 

Security-alerts @yandex-team.ru 

nginx-ru @sysoev.ru 


  СТАТЬИ 


  ПЕРСОНАЛЬНОЕ 


  ПРОГРАММЫ 



ПИШИТЕ
ПИСЬМА












     АРХИВ :: nginx-ru
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


 




Copyright © Lexa Software, 1996-2009.