Perl生成純HTML代碼二維碼實例

字號： 小 中 大


    需要依次安裝 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