sockets - a procedural client example

#!/PERL/PUB/perl -w

use Socket;

$proto = getprotobyname('tcp'); # get protocol number

$ipaddr = inet_aton('localhost'); # get the host's IP address

$port = getservbyname('daytime', 'tcp'); # get port number

$address = sockaddr_in($port, $ipaddr); # create addr struct

socket(SOCK, PF_INET, SOCK_STREAM, $proto); # create the socket

connect(SOCK, $address); # connect to remote host

$timestamp = <SOCK> # read a line of data

print "$timestamp\n"; # print the results

close(SOCK); # close the socket

Previous slide

Next slide

Back to first slide

View graphic version