(Perl) TCP/IP Socket Connect to Remote Host:Port

Demonstrates how to create a TCP/IP socket, connect to a remote host:port, and receive a "Hello World!" message.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$socket = chilkat::CkSocket->new();

# Connect to port 5555 of localhost.
# The string "localhost" is for testing on a single computer.
# It would typically be replaced with an IP hostname, such
# as "www.chilkatsoft.com".
$ssl = 0;
$maxWaitMillisec = 20000;
$success = $socket->Connect("localhost",5555,$ssl,$maxWaitMillisec);
if ($success != 1) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

# Set maximum timeouts for reading an writing (in millisec)
$socket->put_MaxReadIdleMs(10000);
$socket->put_MaxSendIdleMs(10000);

# Pretend, for the sake of the example, that the
# ficticious server is going to send a "Hello World!" 
# after accepting the connection.  
# Note: Technically, the ReceiveString may not receive the
# complete string, although it's highly probable given the short
# length of the "Hello World!" message. 
# See this Chilkat blog post for more information:
# http://www.cknotes.com/?p=302
$receivedMsg = $socket->receiveString();
if ($socket->get_LastMethodSuccess() != 1) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

# Close the connection with the server
# Wait a max of 20 seconds (20000 millsec)
$success = $socket->Close(20000);

print $receivedMsg . "\r\n";