站长资源脚本专栏

Perl生成纯HTML代码二维码实例

整理:jimmy2025/2/27浏览2
简介需要依次安装 qrencode、Text-QRCode、HTML-QRCode#!/usr/bin/perluse HTML::QRCode;my $text = 'http://jb51.net/';my $qrcode = HTML::QRCode->new->plot($text);p

需要依次安装 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代码,效果如:Perl生成纯HTML代码二维码实例