A Daytime Client : Client « Network « Perl






A Daytime Client

    



#!/usr/bin/perl


use strict;
use Socket;

use constant DEFAULT_ADDR => 'timer server';
use constant PORT         => 13;
use constant IPPROTO_TCP  => 6;

my $address = shift || DEFAULT_ADDR;
my $packed_addr = inet_aton($address);
my $destination = sockaddr_in(PORT,$packed_addr);

socket(SOCK,PF_INET,SOCK_STREAM,IPPROTO_TCP) or die "Can't make socket: $!";
connect(SOCK,$destination)                   or die "Can't connect: $!";

print <SOCK>;

   
    
    
    
  








Related examples in the same category

1.Time client
2.Two way client
3.The Client Program
4.The Client with Socket
5.Read the first line from a remote server