1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/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")
or die "Failed to write: " . $img1->errstr;
my $img2 = plot_qrcode($text, \%params);
$img2->write(file => "qrcode2.gif")
or die "Failed to write: " . $img2->errstr;
|
