Perl Requires Chilkat v11.7.0+

Generate a QR Code as SVG

See more QR Code Examples

Demonstrates SVG output. An SVG is a vector image, so it stays sharp at any size, which suits print and responsive web pages. Setting output.format to svg and output.return to text returns the SVG document as a string in outputs[0].text. The SVG can also be written straight to a file with output.path, the same as a PNG. Perl

use chilkat();

$success = 0;

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

$json = chilkat::CkJsonObject->new();
$json->UpdateString("payload.text","https://www.chilkatsoft.com/");
$json->UpdateString("output.format","svg");

#  An SVG is text, so it can be returned as text rather than as base64.
$json->UpdateString("output.return","text");

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

$sbSvg = chilkat::CkStringBuilder->new();
$jsonOut->StringOfSb("outputs[0].text",$sbSvg);

print "MIME type: " . $jsonOut->stringOf("outputs[0].mimeType") . "\r\n";
print "size: " . $jsonOut->IntOf("outputs[0].width") . " x " . $jsonOut->IntOf("outputs[0].height") . " " . $jsonOut->stringOf("outputs[0].units") . "\r\n";
print "SVG length: " . $sbSvg->get_Length() . " characters" . "\r\n";

#  The SVG is a complete document that can be saved, or placed inline in an HTML page.
$success = $sbSvg->WriteFile("qa_output/qr_chilkat.svg","utf-8",0);
if ($success == 0) {
    print $sbSvg->lastErrorText() . "\r\n";
    exit;
}

#  The SVG:

#  

#  Sample output:

#  MIME type: image/svg+xml
#  size: 148 x 148 px
#  SVG length: 12500 characters