Perl

HTTP/HTTPS using SOCKS4 Proxy

See more HTTP Examples

Demonstrates how to use HTTP/HTTPS with a SOCKS4 proxy. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $http = Chilkat2::Http->new;

# Using a SOCKS4 proxy is just a matter of setting a few properties.
# Once these properties are set, all other coding is the same as when
# the connection is direct to the HTTP server.

# Set the SocksVersion property = 4 for SOCKS4
$http->SocksVersion(4);

# Set the SocksHostname to the SOCKS proxy domain name or IP address,
# which may be IPv4 (dotted notation) or IPv6.
$http->SocksHostname('192.168.1.100');

# The port where the SOCKS4 proxy is listening.
$http->SocksPort(1080);

# Now do whatever it is you need to do.  All communications will go through the proxy.
my $html = $http->QuickGetStr('https://www.baidu.com/');
if (!$http->LastMethodSuccess) {
    print $http->LastErrorText, "\n";
    exit;
}

print $html, "\n";
print "----\n";
print "Success!\n";