perlを勉強中のため、覚書です。

beginners CGI - CGI に引数を付けて値を渡す -
futomi's CGI cafe - CGI.pm を使ってみよう -

上記の記事を参考にテストスクリプトを作成してみました。
ソースは以下の通りです。

#!/usr/bin/perl
use strict;
use warnings;
use CGI;

my $q = new CGI;

my $param = $ENV{'QUERY_STRING'};
my @param = split (/&/,$param);


print $q->header(-charset=>"shift-jis");
print $q->start_html(-title=>"Aizack Lab", -BGCOLOR=>'#ffffff'),
$q->center($q->h1('[perl] クエリ文字列取得サンプル')),
$q->hr,
$q->br,
$q->br,
$q->strong("取得したクエリ文字列"),
$q->br,
$q->br;

foreach my $tmp (@param)
{
my ($name,$value) = split (/=/,$tmp);
print $q->strong("名前：$name　値：$value"),
$q->br;
}

print $q->end_html;
exit;

上記のスクリプトに引数を付けて実行すると、それぞれの値を画面上に表示されます。
URLに続けて ? を入力、その後 要素=値 とし、それぞれの要素を & で区切ります。

【例】
http://api.aizack.net/gq_test.cgi?要素１=値２&要素２=値２&要素３=値３

テストスクリプト
http://api.aizack.net/gq_test.cgi?pref=hokkaido&data=10