(Perl) TCP Socket Connect through HTTP Proxy

Demonstrates how to connect through an HTTP proxy server.

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

use chilkat();

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

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

# To connect through an HTTP proxy, set the HttpProxyHostname
# and HttpProxyPort properties to the hostname (or IP address)
# and port of the HTTP proxy.  Typical port numbers used by
# HTTP proxy servers are 3128 and 8080.
$socket->put_HttpProxyHostname("www.my-http-proxy.com");
$socket->put_HttpProxyPort(3128);

# Important:  Your HTTP proxy server must allow non-HTTP
# traffic to pass.  Otherwise this does not work.

# Connect (via the HTTP proxy) to port 5555 of 192.168.1.108.
# hostname may be a domain name or IP address.
$hostname = "192.168.1.108";
$ssl = 0;
$maxWaitMillisec = 20000;
$success = $socket->Connect($hostname,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);

# The ficticious server (in this example) is going to send a "Hello World!" 
# message.  Read it:
$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";