プログラミングの勉強をしよう@Wiki
プログラミングの勉強をしよう@Wiki

GETパラメータの取得

GETパラメータの取得

GETパラメータを取得する場合は$ENV{'QUERY_STRING'}変数より取得する

サンプル

test.cgi

#!"C:/Perl64/bin/perl.exe"
 
use strict;
use warnings;
 
print "Content-Type: text/html\n\n";
 
# GETパラメータ取得
my $_get = $ENV{'QUERY_STRING'};
 
# 取得したGETパラメータをハッシュ型配列へ設定
my %list;
my @params = split /&/, $_get;
foreach my $var(@params){
    # キーとデータを分割
    my ($key, $value) = split(/=/, $var);
    $list{$key} = $value;
}
 
# タイトル
my $title = "テストタイトル";
my $data = "テスト Hello World";
 
print <<HTML_EOF;
<html>
	<head>
		<title>$title</title>
	</head>
	<body>
		<div>
			$data
		</div>
		<hr />
		<div>
			get=$_get
		</div>
		<hr />
HTML_EOF
 
while(my ($key, $value) = each(%list)){
    print "$key=$value<br />";
}
print <<HTML_EOF;
	</body>
</html>
HTML_EOF
 
 

HTML結果(GETパラメータに"aaa=111&bbb=222"を指定)

<html>
	<head>
		<title>テストタイトル</title>
	</head>
	<body>
		<div>
			テスト Hello World
		</div>
		<hr />
 
		<div>
			get=aaa=111&bbb=222
		</div>
		<hr />
bbb=222<br />aaa=111<br />	</body>
</html>
 
 

画面




「GETパラメータの取得」をウィキ内検索
最終更新：2012年01月16日 22:07