クエリー(引数)を受け取る::CGI.pm使用
CGIモジュールを利用して、クエリー(引数)を受け取る方法。
« Hello World | メイン | クエリー(引数)を受け取る::自作コードのみ »
カテゴリー：クエリー(引数)
use CGI qw(:cgi);
#-------------------------------------------------------#
# 例：全てのクエリー名を取得
#-------------------------------------------------------#
my $q = new CGI();
#全クエリー名を取得
@names = $q->param();
#ヘッダ出力
print $q->header();
#クエリー名を表示
foreach $name ( @names ){
print "$name<BR>\n";
}
exit(0);
#-------------------------------------------------------#
# 例：特定のクエリーを取得
#-------------------------------------------------------#
my $q = new CGI();
#値を取得(その1)
$value = $q->param("maker"); #値が一つしかない場合
#値を取得(その2)
@values = $q->param("shashu"); #同一のクエリー名で、複数の値がある場合
#ヘッダ出力
print $q->header();
#クエリー名と値を表示
print "maker | $value <BR><BR>\n";
#複数の値を表示
$value_join = join(",", @values); #値を全て結合する
print "shashu | $value_join <BR>\n";
print "<BR>\n";
exit(0);
トラックバック
このエントリーのトラックバックURL:
http://katsubemakito.net/mt/mt-tb.cgi/207
