File: generate.pl

package info (click to toggle)
libimager-qrcode-perl 0.033-1.2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, buster, jessie, jessie-kfreebsd, stretch, trixie
  • size: 2,656 kB
  • ctags: 1,090
  • sloc: sh: 10,244; ansic: 6,560; perl: 2,480; makefile: 63
file content (23 lines) | stat: -rwxr-xr-x 721 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl

use strict;
use Encode;
use Imager::QRCode qw(plot_qrcode);

my %params = (
    size          => 2,
    margin        => 2,
    version       => 1,
    level         => 'M',
    casesensitive => 1,
    lightcolor    => Imager::Color->new(255, 255, 255),
    darkcolor     => Imager::Color->new(0, 0, 0),
);
my $qrcode = Imager::QRCode->new(%params);
my $text = encode('cp932', decode('utf8', "QRコードは(株)デンソーウェーブの登録商標です。QR Code is registered trademarks of DENSO WAVE INCORPORATED in JAPAN and other countries."));
my $img1 = $qrcode->plot($text);
$img1->write(file => "qrcode1.gif");

my $img2 = plot_qrcode($text, \%params);
$img2->write(file => "qrcode2.gif");