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

(编辑：jimmy 日期: 2024/11/27 浏览：3 次 )

需要依次安装 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内置特殊变量总结
下一篇：Perl中的特殊内置变量详细介绍