Perl Requires Chilkat v11.7.0+

QR Codes for Email, Phone, SMS and Location

See more QR Code Examples

Demonstrates QR codes that start an action on a phone. A QR code only holds text, and what happens on scanning depends on the form of that text: mailto: starts an email, tel: dials a number, SMSTO: starts a text message, and geo: opens a map at a latitude and longitude. A web address opens in the browser. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $fmt = Chilkat2::Formats->new;
my $json = Chilkat2::JsonObject->new;
my $jsonOut = Chilkat2::JsonObject->new;
$json->UpdateInt('render.moduleSize', 6);
$json->UpdateBool('output.overwrite', 1);
$json->UpdateString('output.return', 'none');

# An email, with the address and optionally a subject.  Spaces in the subject are written %20.
$json->UpdateString('payload.text', 'mailto:support@example.com?subject=Order%2012345');
$json->UpdateString('output.path', 'qa_output/qr_email.png');
my $success = $fmt->QrCode('generate', $json, $jsonOut);
if (!$success) {
    print $fmt->LastErrorText, "\n";
    exit;
}

print 'email: version ', $jsonOut->IntOf('symbols[0].selectedEncoding.version'), ', ', $jsonOut->StringOf('outputs[0].path'), "\n";

# 

# A phone number to dial, in international form.
$json->UpdateString('payload.text', 'tel:+15555550100');
$json->UpdateString('output.path', 'qa_output/qr_phone.png');
$success = $fmt->QrCode('generate', $json, $jsonOut);
if (!$success) {
    print $fmt->LastErrorText, "\n";
    exit;
}

print 'phone: version ', $jsonOut->IntOf('symbols[0].selectedEncoding.version'), ', ', $jsonOut->StringOf('outputs[0].path'), "\n";

# 

# A text message: the number, then the message.
$json->UpdateString('payload.text', 'SMSTO:+15555550100:Please call me back');
$json->UpdateString('output.path', 'qa_output/qr_sms.png');
$success = $fmt->QrCode('generate', $json, $jsonOut);
if (!$success) {
    print $fmt->LastErrorText, "\n";
    exit;
}

print 'sms: version ', $jsonOut->IntOf('symbols[0].selectedEncoding.version'), ', ', $jsonOut->StringOf('outputs[0].path'), "\n";

# 

# A location: latitude, then longitude, in degrees.
$json->UpdateString('payload.text', 'geo:41.8781,-87.6298');
$json->UpdateString('output.path', 'qa_output/qr_location.png');
$success = $fmt->QrCode('generate', $json, $jsonOut);
if (!$success) {
    print $fmt->LastErrorText, "\n";
    exit;
}

print 'location: version ', $jsonOut->IntOf('symbols[0].selectedEncoding.version'), ', ', $jsonOut->StringOf('outputs[0].path'), "\n";

# 

# Sample output:

# email: version 4, qa_output/qr_email.png
# phone: version 2, qa_output/qr_phone.png
# sms: version 3, qa_output/qr_sms.png
# location: version 2, qa_output/qr_location.png