Función getpeername de Perl

Descripción

Esta función devuelve la dirección de socket empaquetada del host remoto adjunto a SOCKET.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

getpeername SOCKET

Valor devuelto

Esta función devuelve undef en caso de error, de lo contrario, la dirección de socket empaquetada en contexto escalar.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico, aquí SOCK es el ID de socket del socket par

#!/usr/bin/perl

use Socket;

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