2006年11月 7日(火) 21時52分42秒 [Perl/CGI]

CGIモジュールで、同じ名前の入力フォームの値を全部取得するには

HTMLのフォームから入力された文字列をCGIで受け取りたい場合、CGIモジュールのparamメソッドを使うと楽です。自力で、QUERY_STRING環境変数の中身を覗かなくても、パラメータ名（＝HTMLの入力フォームに書いたname属性の値）を指定するだけで簡単に値を取得できます。
例えば、次のような感じで。

上記の場合、HTMLのフォームにある「sakura」と名前を付けた入力欄から得られた情報が、変数$sakuraに格納されます。
例えば、1行入力欄であれば、次のよーなHTMLになるでしょう。

というわけで、入力欄がsakura・tomoyo・misakiの3つで、それぞれ変数$sakura・$tomoyo・$misakiに受け取りたい場合は、以下のよーに書けば良いでしょう。

まあ、ここまでは簡単です。

問題は、（チェックボックスを扱うときによくあることですが）同じ名称の入力欄が複数ある場合の取得方法。

例えば、次のよーなHTMLがあるとき。

表示すると、以下のよーな感じ。

3つのチェックボックスがありますけど、名称（＝name属性の値）は全部「sakura」です。

この場合、先ほど示したCGIモジュールの例のように、

…と書いたのでは、うまく取得できません。
なぜかというと、（3つあるチェックボックスのうち）3つともチェックされていようが、2つだけチェックされていようが、最初の1つの値しか（変数$sakuraには）入らないからです。

同じ名称のフォームが複数あるからといって、変数$sakuraに、「1,2,3」みたいな感じでまとめて取得されたりはしません。
上記のサンプルHTMLの場合だと、チェックボックス3つ全部にチェックを入れても、変数$sakuraには、「1」しか入らないでしょう。

では、どうすればいいのか。
…というと、これは非常に簡単で、次のように書けば良いだけです。(※この記事末尾の注釈もご参照下さい)

paramメソッドの返り値を、変数ではなく配列で受け取ります。
こうすると、配列@sakuraの中には、名称がsakuraな入力欄の値が順番に全部入ります。

めちゃくちゃ簡単ですね…。
しかも、便利です。(^_^;)
同じ名前のフォームがいくつ存在しても全部取得できるし、取得した全部のデータに対してループで楽に処理できます。

※上記のサンプルPerlソースでの「 $cgi 」というのは、あらかじめ以下のよーに書いてあることが前提です。

※追記
CGI.pm 4.08以降では、上記のような場面では param ではなく multi_param を使う方が良いようです。param だと、書き方によっては脆弱性になってしまう可能性があるからで、その辺は「Perl5におけるコンテキストの扱いによる脆弱性について」をご覧になるか、「multi_param 脆弱性」みたいな検索語でググって下さい。