• Twitter
• Facebook
• Tumblr
• Email

CGIモジュールを利用して、クエリー(引数)を受け取る方法。

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);

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

• Twitter
• Facebook
• Tumblr
• Email