需要依次安裝 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
更多信息請查看IT技術專欄
版權所有:易賢網
<dl id="6qeko"></dl>
公眾號
事業單位
當前位置：
公考類
招聘類
各類考試