Perl

QR Code Generator via api.qrserver.com REST API

See more HTTP Examples

Demonstrates how to generate a QR code using the api.qrserver.com REST API service. Perl

use chilkat();

$success = 0;

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

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

# Send the following GET request to get a binary response.
# The body of the binary response contains the image data for the QR code.
# https://api.qrserver.com/v1/create-qr-code/?data=[URL-encoded-text]&size=[pixels]x[pixels]

$queryParams = chilkat::CkJsonObject->new();
$queryParams->UpdateString("data","Hello World");
$queryParams->UpdateString("size","100x100");

# Get a PNG file..
# Possible formats are:
# png
# gif
# jpeg
# jpg
# svg
# eps
# Case matters.  Use lowercase.
$queryParams->UpdateString("format","png");

# Send the GET request to an endpoint.
# Chilkat will add the url-encoded query params passed in the JSON.
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpParams("GET","https://api.qrserver.com/v1/create-qr-code/",$queryParams,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Did it succeed?
if ($resp->get_StatusCode() != 200) {
    # The response body, if anything, would not be the image data, but would likely be the error text (or HTML, or whatever...)
    print $resp->bodyStr() . "\r\n";
    print "Response status = " . $resp->get_StatusCode() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# Success if we get here..
# Save the binary body as the PNG file, or you can get the bytes of the PNG..
$success = $resp->SaveBodyBinary("c:/temp/qa_output/qr_code.png");

# Or get the bytes:
$bd = chilkat::CkBinData->new();
$resp->GetBodyBd($bd);
# Use the bytes in bd...
# See the online reference documentation for the function to access the bytes directly.

print "Success." . "\r\n";