Send data from client to server : Server « Network « Perl






  1. Perl
  2. Network
  3. Server

Send data from client to server

    

use Socket;

socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

$addr = sockaddr_in(2336, inet_aton('server.com'));

connect(SERVER, $addr) or die "Could not connect.\n";

print SERVER "Hello from the client!\n";

close(SERVER);








Related examples in the same category

1.Two way server
2.Time server
3.The server and the client are on the same machine
4.Simple server
5.Socket answer
6.Socket pair
7.Socket server waiting for clients
8.Read from server
9.Forking Servers