Função getpeername Perl

Descrição

Esta função retorna o endereço de soquete compactado do host remoto conectado a SOCKET.

Sintaxe

A seguir está a sintaxe simples para esta função -

getpeername SOCKET

Valor de retorno

Esta função retorna undef em caso de erro, caso contrário, o endereço de soquete empacotado no contexto escalar.

Exemplo

A seguir está o código de exemplo mostrando seu uso básico, aqui SOCK é o ID do soquete do soquete do par -

#!/usr/bin/perl

use Socket;

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