Perl

QuickDeleteStr Example

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

use chilkat();

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

$http = chilkat::CkHttp->new();

# Specifiy a session log file so we can see the exact request/response
$http->put_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
$url = "https://www.example.com/someting?param1=123&param2=abc";
$reponseBodyStr = $http->quickDeleteStr($url);
if ($http->get_LastMethodSuccess() == 0) {
    # 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->get_LastStatus();
    print "Response status: " . $statusCode . "\r\n";

    if ($statusCode == 0) {
        # There was an error in communications.  
        print $http->lastErrorText() . "\r\n";
    }
    else {
        # We received a response status code indicating failure.
        # Examine the response body.
        print $http->lastResponseBody() . "\r\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->get_LastStatus();
print "Response status: " . $statusCode . "\r\n";

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