_  _   ,_
/^\/^\-/ @D
~(________/ PERL.LT
|L |L
L L
Straipsniai  Funkcijos 
Funkcijos/getpeername - suranda kitą galą socket susijungimo
  • getpeername SOCKET

    Gražina supakuotą sockaddr adresą iš kito SOCKET susijungimo galo.

        use Socket;
        $hersockaddr    = getpeername(SOCK);
        ($port, $iaddr) = sockaddr_in($hersockaddr);
        $herhostname    = gethostbyaddr($iaddr, AF_INET);
        $herstraddr     = inet_ntoa($iaddr);
algirdas@perl.lt 2005.04.11 - $dabar