Perl

Example: Http.ClearHeaders method

Demonstrates how to call the ClearHeaders method.

Also see: Chilkat Http Default and Auto-Filled Headers

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $success = 0;

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

# Add a request header.
$http->SetRequestHeader('X-Something', '1234');
$http->SetRequestHeader('X-Example', '5678');

my $responseBody = $http->QuickGetStr('https://chilkatsoft.com/helloWorld.txt');
# Examine the request header we just sent..
print $http->LastHeader, "\n";
print "----\n";

# Output:

# GET /helloWorld.txt HTTP/1.1
# Host: chilkatsoft.com
# Accept: */*
# Accept-Encoding: gzip
# X-Something: 1234
# X-Example: 5678

# Remove the request headers we previously added:
$http->ClearHeaders();

$responseBody = $http->QuickGetStr('https://chilkatsoft.com/helloWorld.txt');
print $http->LastHeader, "\n";

# Output:

# GET /helloWorld.txt HTTP/1.1
# Host: chilkatsoft.com
# Accept: */*
# Accept-Encoding: gzip