脚本专栏 
首页 > 脚本专栏 > 浏览文章

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

(编辑:jimmy 日期: 2025/4/24 浏览: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生成纯HTML代码二维码实例

上一篇:Perl内置特殊变量总结
下一篇:Perl中的特殊内置变量详细介绍
一句话新闻
高通与谷歌联手!首款骁龙PC优化Chrome浏览器发布
高通和谷歌日前宣布,推出首次面向搭载骁龙的Windows PC的优化版Chrome浏览器。
在对骁龙X Elite参考设计的初步测试中,全新的Chrome浏览器在Speedometer 2.1基准测试中实现了显著的性能提升。
预计在2024年年中之前,搭载骁龙X Elite计算平台的PC将面世。该浏览器的提前问世,有助于骁龙PC问世就获得满血表现。
谷歌高级副总裁Hiroshi Lockheimer表示,此次与高通的合作将有助于确保Chrome用户在当前ARM兼容的PC上获得最佳的浏览体验。