Perlモジュールのparam()を使って

質問

ネットでいろいろ調べていたらPerlモジュールのparamですべてのパラメーターを得る場合引数をいれずに
param()とすればいいとかかれていたので、すべてのパラメーターから,カンマがあればエラーにするという構文を書こうとしましたがうまくいきません。

@params =　param();
foreach $param (@params) {
if($param =~ /\,/){&error('フォーム内に「,」は入力できません。');};

}
上のようにしてもスルーします。
間違っているのだと思いますが、すべてのパラメーターからマッチングさせたい場合どのようにすればいいのでしょうか？
よろしくおねがいします。

回答No.3

steel_gray · ベストアンサー

CGI.pmを利用している場合、各キーに対する値は
param(キーワード)で取り出せます。

なので元のスクリプトの修正は $param を利用して
if(param($param) =~ /\,/){&error('フォーム内に「,」は入力できません。');}

でよいかと思います。
ちょっと長いですが参考URLにCGI.pmの説明を載せています。

参考URL：

http://perldoc.jp/docs/modules/CGI.pm-2.89/CGI.pod

お礼

@params =param();
foreach $param (@params) {
if(param($param) =~ /\,/){&error('フォーム内に「,」は入力できません。');};
}
としたらばっちりうまくいきました。
いわれればそうだなーと思うのですが、おもいつきませんね・・・
助かりました。

回答No.2

BLUEPIXY

param();
の前に全角スペースがあります。
このために全体がエラーになっているのではないでしょうか？

ついでに、if(){}の後に;は必要ありません。（書いてもいいですが）
foreachの部分自体は間違っていないと思いますが、
どのフィールドでエラーがあったのか表示すると良いかと思います。
どのフィールドでということをしないのであれば、
１つエラーがあれば、抜けるようにした方がいいかもしれません。

お礼

No1の補足でも答えましたが値のほうを取得したいので当然カンマはでてきません・・・
どうすれば・・

回答No.1

steel_gray

param()で得られるのはパラメータのキーワードの一覧です。
クエリがabc=123&def=456だとしたら
@paramsにはabcとdefが入ります。

お礼

まったくもって勘違いしていました。
私が得たいのは123のほうです。
パラメーター値を得たい場合はどうすればいいのですか？