Sample TCP client. : TCP « Network « Perl






  1. Perl
  2. Network
  3. TCP

Sample TCP client.

    


#!/usr/bin/perl -w

use Socket;

$port = 9999;
$proto = getprotobyname("tcp");
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "Can't create socket: $!";
$host = 'localhost';
print "Connecting to $host\n";

$iaddr = inet_aton($host);

$paddr = sockaddr_in($port, $iaddr);

connect(SOCKET, $paddr) or die "Can't connect: $!";

while ($data = <SOCKET>) {
    print $data;
}

close (SOCKET);








Related examples in the same category

1.TCP client
2.TCP client using Socket module.
3.TCP inet server
4.TCP server
5.tcp inet client
6.Sample TCP client without the Socket module.
7.Simple TCP Clients
8.Example of a Perl TCP server using Socket module.