perlでCGI.pmを使ってCGIを作る際の話。
・CGIに渡されたパラメータは、別のサーバに対してのコンテンツ取得に使用する
・渡されるパラメータが何がどれくらいあるのかが特定できない
・こちらの内部管理用で不要なパラメータとして特定の文字列があるが、それは引き渡さない
こんな条件がある時に、どーやって、パラメータを取得するか、というところ。
use CGI;
my $q = new CGI;
# 不要なパラメータを消去
$q->delete('sessionid');
# 残ったパラメータを表示
foreach my $name ($q->param) {
# $nameが持っている値が複数の場合もあるため
# @_=$q->param($name)に格納して
# それをforeachする
foreach my $value ($q->param($name)){
print "$name=$value <br>\n";
}
}