需要依次安装 qrencode、Text-QRCode、HTML-QRCode
- #!/usr/bin/perl
- use HTML::QRCode;
- my $text = 'http://www.zzvips.com/';
- my $qrcode = HTML::QRCode->new->plot($text);
- print <<"HTML";
- <html>
- <head></head>
- <body>
- $qrcode
- </body>
- </html>
生成的二维码是纯HTML代码,效果如: