Perl生成纯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

生成的二维码是纯HTML代码，效果如：