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"; } }