Perlで、QRコードを生成する(CGI編)。 - undiscoの日記Perlで、QRコードを生成する - undiscoの日記の、CGI版です。 qrディレクトリを作って、権限を与えておけばそこに生成されます。 #!/usr/bin/perl use strict; use warnings; use GD; use GD::Barcode::QRcode; use CGI; my $q = new CGI; my $url = $q->param('url') || 'no'; print "Content-Type: text/html; charset=Shift_JIS", "\n\n"; print <<HEAD; <html> <head> <meta http-equiv="content-type" content="text/html; charset=shift_jis"/> <title>QRコード生成システム</title> </h
