Perl

QuickDeleteStr Example

Sends a DELETE request to a URL. The URL can potentially include params, and custom request headers can be added. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

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

# Specifiy a session log file so we can see the exact request/response
$http->SessionLogFilename('c:/aaworkarea/sessionLog.txt');

# Perhaps add a custom header or two..
$http->SetRequestHeader('x-exz-date', '20201012T235046Z');
$http->SetRequestHeader('x-exz-id', '1234');

# Send a DELETE request to https://www.example.com/someting?param1=123&param2=abc
my $url = 'https://www.example.com/someting?param1=123&param2=abc';
my $reponseBodyStr = $http->QuickDeleteStr($url);
if (!$http->LastMethodSuccess) {
    # This will happen if the response status code was 400 or greater,
    # or if the request could not be sent, or if no response was received.
    $statusCode = $http->LastStatus;
    print 'Response status: ', $statusCode, "\n";

    if ($statusCode == 0) {
        # There was an error in communications.
        print $http->LastErrorText, "\n";
    } else {
        # We received a response status code indicating failure.
        # Examine the response body.
        print $http->LastResponseBody, "\n";
    }

    exit;
}

# The DELETE request that is sent looks like this.
# The Accept and Accept-Encoding headers are automatically added by default.

#     DELETE /someting?param1=123&param2=abc HTTP/1.1
#     Host: www.example.com
#     Accept: */*
#     Accept-Encoding: gzip
#     x-exz-date: 20201012T235046Z
#     x-exz-id: 1234

# Get the response status
$statusCode = $http->LastStatus;
print 'Response status: ', $statusCode, "\n";

# Show the response body
print $reponseBodyStr, "\n";