Read from server : Server « Network « Perl

1. Perl
2. Network
3. Server

Read from 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";

$line = <SERVER>;

print $line;

close(SERVER);

   
    
    
    
  

Related examples in the same category