[ Perl ] POST / GET パラメータを取得する ( CGI )

Tweet

Pocket

Perl で POST や GET パラメータを取得するには Perl に標準搭載されている CGI モジュールを使用する方法が一番簡単だと思います。

CGI::param メソッドを使用して取得しますが、POST であろうと GET パラメータであろうと関係なく取得することができます。また、URL デコードされた結果が取得できますので、自前でデコード処理をする必要はありません。このあたりの仕様は PHP と同じです。( Perl が先とか細かいことは言わないでくださいね。どちらが先かなんて知りませんけどね )

サンプルコード

#!/usr/bin/perl

use strict;
use warnings;
use CGI;

#
# POST / GET パラメータを取得
#
my $q = new CGI;

# パラメータ名を指定して取得する
my $param1 = $q->param('name1');  
my $param2 = $q->param('name2'); 

# 全てのパラメータを取得する
for my $param_name ($q->param) {

  print $param_name . ' = ' . $q->param($param_name) . '\n';
  
}

参考

• CGI – Common Gateway Interface のリクエストとレスポンスを扱う

Tweet

Pocket