CARVIEW |
Select Language
HTTP/2 200
server: nginx
content-type: text/html;charset=UTF-8
content-encoding: gzip
content-security-policy: default-src 'self'; connect-src 'self' *.google-analytics.com; img-src 'self' data: www.google-analytics.com www.googletagmanager.com; script-src 'self' 'unsafe-inline' www.google-analytics.com www.googletagmanager.com; style-src 'self'; report-uri /csp-reports
accept-ranges: bytes
age: 0
date: Mon, 28 Jul 2025 16:00:54 GMT
via: 1.1 varnish
x-served-by: cache-bom-vanm7210069-BOM
x-cache: MISS
x-cache-hits: 0
x-timer: S1753718454.655786,VS0,VE670
vary: Accept-Encoding
strict-transport-security: max-age=31557600
content-length: 2874
getsockname - Perldoc Browser
- #getsockname SOCKET
-
Returns the packed sockaddr address of this end of the SOCKET connection, in case you don't know the address because you have several different IPs that the connection might have come in on.
use Socket; my $mysockaddr = getsockname($sock); my ($port, $myaddr) = sockaddr_in($mysockaddr); printf "Connect to %s [%s]\n", scalar gethostbyaddr($myaddr, AF_INET), inet_ntoa($myaddr);
Perldoc Browser is maintained by Dan Book (DBOOK). Please contact him via the GitHub issue tracker or email regarding any issues with the site itself, search, or rendering of documentation.
The Perl documentation is maintained by the Perl 5 Porters in the development of Perl. Please contact them via the Perl issue tracker, the mailing list, or IRC to report any issues with the contents or format of the documentation.