Perl

Socket Convenience Method: BuildHttpGetRequest

See more Socket/SSL/TLS Examples

Demonstrates the BuildHttpGetRequest method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# The BuildHttpGetRequest method is a convenience method for building
# an HTTP GET request.  Normally, an application would use Chilkat's HTTP or REST API's
# for sending HTTP requests.

my $socket = Chilkat2::Socket->new;

my $url = 'http://www.chilkatsoft.com/test.asp?x=123&y=456';
my $reqStr = $socket->BuildHttpGetRequest($url);
print $reqStr, "\n";
print "----\n";

# The result is:

#     GET /test.asp?x=123&y=456 HTTP/1.1
#     Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
#     Connection: keep-alive
#     User-Agent: Mozilla/5.0 (Windows NT 6.3; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0
#     Accept-Language: en-us,en;q=0.5
#     Host: www.chilkatsoft.com

# The result is meant to look like a request from a browser.

# The same thing can be done using the Url and HttpRequest classes, but with more flexibility.

my $req = Chilkat2::HttpRequest->new;
$req->SetFromUrl($url);
$reqStr = $req->GenerateRequestText();
print $reqStr, "\n";
print "----\n";

# The result is:

#     GET /test.asp?x=123&y=456 HTTP/1.1
#     Host: domain

# Add some headers..
$req->AddHeader('Host', 'www.chilkatsoft.com');
$req->AddHeader('Accept-Language', 'en-us,en;q=0.5');
$req->AddHeader('Some-Other-Header', '123456');

$reqStr = $req->GenerateRequestText();
print $reqStr, "\n";

# The result is now:

#     GET /test.asp?x=123&y=456 HTTP/1.1
#     Host: www.chilkatsoft.com
#     Accept-Language: en-us,en;q=0.5
#     Some-Other-Header: 123456