プロが教える店舗&オフィスのセキュリティ対策術

IIS + クラシック asp + ActivePerl 環境下で QR コードを取得するプログラムを作っています。

呼び出し元の asp 内に、
<img src = "./cgi-bin/qr_test.cgi?q=hogehoge">
と書きました。
この q=hogehoge を呼び出し先で取得する方法を教えてください。

=====
呼び出し元 (qr_test.asp)

<html>
<head></head>
<body>
<img src = "./cgi-bin/qr_test.cgi?q=hogehoge">
</body>
</html>
=====
呼び出し先 (qr_test.cgi)

use strict;
use warnings;
use GD::Barcode;

my $url = $in{'q'}; # ここでエラーが出ます。コメントアウトすると正常に動きます。

my $qrimg = GD::Barcode->new('QRcode',$url,{'Ecc'=>'M',Version=>'7','ModuleSize'=>'4'});

binmode(STDOUT);
print "Content-Type: image/jpeg\n\n";
print $qrimg->plot->jpeg;

exit(0);
=====

バージョンは
IIS 7.5
Perl 5.14.2 (64bit)
です。

どなたかご教授お願いします。

A 回答 (1件)

> my $url = $in{'q'}; # ここでエラーが出ます。



クエリストリングは自動的に $in に格納されるわけではないから。
キーワード「query_string perl get」でGoogle検索してみてはいかがでしょう。
    • good
    • 0
この回答へのお礼

$ENV{'QUERY_STRING'}で取得できました。
ありがとうございます。

お礼日時:2011/12/17 09:01

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!