需要依次安装 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代码，效果如：
