このページは大阪弁化フィルタによって翻訳生成されたんですわ。

翻訳前ページへ
getpeername - perldoc.perl.org
The Wayback Machine - http://web.archive.org/web/20080610174132/http://perldoc.perl.org:80/functions/getpeername.html
-- Perl 5.10.0 documentation --
getpeername
Perl functions A-Z | Perl functions by category | The 'perlfunc' manpage
  • getpeername SOCKET

    Returns the packed sockaddr address of other end of the SOCKET connection.

        use Socket;
    $hersockaddr    = getpeername(SOCK);
    ($port, $iaddr) = sockaddr_in($hersockaddr);
    $herhostname    = gethostbyaddr($iaddr, AF_INET);
    $herstraddr     = inet_ntoa($iaddr);