Socket
use Socket; $proto = getprotobyname('udp'); socket(SOCK, PF_INET, SOCK_DGRAM, $proto) or die "socket: $!"; $iaddr = gethostbyname('hishost.com'); $port = getservbyname('time', 'udp'); $sin = sockaddr_in($port, $iaddr); send(SOCK, 0, 0, $sin) or die "send: $!"; $proto = getprotobyname('tcp'); socket(SOCK, PF_INET, SCCK_STREAM, $proto) or die "socket: $!"; $port = getservbyname('smtp', 'tcp'); $sin = sockaddr_in($port,inet_aton("127.1")); $sin = sockaddr_in(7,inet_aton("localhost")); $sin = sockaddr_in(7,INADDR_L00PBACK); connect(SOCK,$sin) or die "connect: $!"; ($port, $iaddr) = sockaddr_in(getpeername(SOCK)); $peer_host = gethostbyaddr($iaddr, AF_INET); $peer_addr = inet_ntoa($iaddr); $proto = getprotobyname('tcp'); socket(SOCK, PF_UNIX, ...
Get Programmieren mit Perl now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.