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. 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 $json = Chilkat2::JsonObject->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');

my $fmt = Chilkat2::Formats->new;
my $jsonOut = Chilkat2::JsonObject->new;
my $success = $fmt->QrCode('generate', $json, $jsonOut);
if (!$success) {
    print $fmt->LastErrorText, "\n";
    exit;
}

my $sbSvg = Chilkat2::StringBuilder->new;
$jsonOut->StringOfSb('outputs[0].text', $sbSvg);

print 'MIME type: ', $jsonOut->StringOf('outputs[0].mimeType'), "\n";
print 'size: ', $jsonOut->IntOf('outputs[0].width'), ' x ', $jsonOut->IntOf('outputs[0].height'), ' ', $jsonOut->StringOf('outputs[0].units'), "\n";
print 'SVG length: ', $sbSvg->Length, " characters\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) {
    print $sbSvg->LastErrorText, "\n";
    exit;
}

# The SVG:

# 

# Sample output:

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