Imager::QRCodeモジュールはこれを簡単にします。私はちょうど5分で次のことをノックアップしました.
#!/Users/quentin/perl5/perlbrew/perls/perl-5.14.2/bin/perl
use v5.12;
use CGI; # This is a quick demo. I recommend Plack/PSGI for production.
use Imager::QRCode;
my $q = CGI->new;
my $text = $q->param('text');
if (defined $text) {
my $qrcode = Imager::QRCode->new(
size => 5,
margin => 5,
version => 1,
level => 'M',
casesensitive => 1,
lightcolor => Imager::Color->new(255, 255, 255),
darkcolor => Imager::Color->new(0, 0, 0),
);
my $img = $qrcode->plot($text);
print $q->header('image/gif');
$img->write(fh => \*STDOUT, type => 'gif')
or die $img->errstr;
} else {
print $q->header('text/html');
print <<END_HTML;
<!DOCTYPE html>
<meta charset="utf-8">
<title>QR me</title>
<h1>QR me</h1>
<form>
<div>
<label>
What text should be in the QR code?
<textarea name="text"></textarea>
</label>
<input type="submit">
</div>
</form>
END_HTML
}
どうすればこれを行うことができ、ほとんどのブラウザが互換性を持つのに最適な言語は何ですか.
サーバー上で実行する場合は、出力がブラウザー間で互換性があることを確認するだけで済みます。GIFまたはPNGを使用してください。
連結する 3 つのテキスト領域を持つ Web サイトのサンプル コードを含めていただけますか?
.
Perl で文字列変数を連結するには、a を使用するだけです。
my $img = $qrcode->plot($foo . $bar . $baz);