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. Perl

use chilkat();

$success = 0;

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

$fmt = chilkat::CkFormats->new();
$json = chilkat::CkJsonObject->new();
$jsonOut = chilkat::CkJsonObject->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");
$success = $fmt->QrCode("generate",$json,$jsonOut);
if ($success == 0) {
    print $fmt->lastErrorText() . "\r\n";
    exit;
}

print "email: version " . $jsonOut->IntOf("symbols[0].selectedEncoding.version") . ", " . $jsonOut->stringOf("outputs[0].path") . "\r\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 == 0) {
    print $fmt->lastErrorText() . "\r\n";
    exit;
}

print "phone: version " . $jsonOut->IntOf("symbols[0].selectedEncoding.version") . ", " . $jsonOut->stringOf("outputs[0].path") . "\r\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 == 0) {
    print $fmt->lastErrorText() . "\r\n";
    exit;
}

print "sms: version " . $jsonOut->IntOf("symbols[0].selectedEncoding.version") . ", " . $jsonOut->stringOf("outputs[0].path") . "\r\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 == 0) {
    print $fmt->lastErrorText() . "\r\n";
    exit;
}

print "location: version " . $jsonOut->IntOf("symbols[0].selectedEncoding.version") . ", " . $jsonOut->stringOf("outputs[0].path") . "\r\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