需要依次安装 qrencode、Text-QRCode、HTML-QRCode
#!/usr/bin/perl
use HTML::QRCode;
my $text = \’http://jb51.net/\’;
my $qrcode = HTML::QRCode->new->plot($text);
print <<\”HTML\”;
<html>
<head></head>
<body>
$qrcode
</body>
</html>
HTML
需要依次安装 qrencode、Text-QRCode、HTML-QRCode
#!/usr/bin/perl
use HTML::QRCode;
my $text = \’http://jb51.net/\’;
my $qrcode = HTML::QRCode->new->plot($text);
print <<\”HTML\”;
<html>
<head></head>
<body>
$qrcode
</body>
</html>
HTML