4 ms·
#!/usr/bin/perl use GD::Barcode::QRcode; my $url = 'http://news.ycombinator.com/'; print "Content-type: image/png\r\n\r\n"; print GD::Barcode::QRcode->n
by mike-cardwell 15y ago
#!/usr/bin/perl
use GD::Barcode::QRcode;
my $url = 'http://news.ycombinator.com/';
print "Content-type: image/png\r\n\r\n";
print GD::Barcode::QRcode->new($url,{Version=>3})->plot->png;
Personally, I don't think it's a good idea to rely on third party services to do things which can be trivially performed locally.
- brk 15y agoPersonally, I don't think it's a good idea to rely on third party services to do things which can be trivially performed locally. I agree with you totally. However, there is a whole army of marketeers who can barely manage to paste some javascript into an HTML file without messing the whole thing up. Those are the folks that you can monetize off of projects like this. BTW, it's always good to see another perlmonger.