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

时间:2022-09-09 21:09:20

需要依次安装 qrencode、Text-QRCode、HTML-QRCode

  1. #!/usr/bin/perl 
  2.  
  3. use HTML::QRCode; 
  4. my $text = 'http://www.zzvips.com/'
  5. my $qrcode = HTML::QRCode->new->plot($text); 
  6. print <<"HTML"
  7. <html> 
  8.   <head></head> 
  9.   <body> 
  10.   $qrcode 
  11.   </body> 
  12. </html> 

生成的二维码是纯HTML代码,效果如:

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