CGIPerl入力チェック
■ このスレッドは過去ログ倉庫に格納されています
こう書けるの
use CGI ':all';
my %p = map{$_ => [param($_)]}param();
my @error = param_check(
[
{name=>'name', notnull=>1, length=>128, disp=>'名前'},
{name=>'mail', notnull=>0, length=>256, code=>\&chk_mail, disp=>'E-mail'},
{name=>'msg', notnull=>1, length=>3000, disp=>'メッセージ'}
],
\%p
);
error(@error) if @error;
つくろう。 >my %p = map{$_ => [param($_)]}param()
ReadParse使おうよ。
あ、untiedな配列に入れ直すのが味噌か。
>>35
ガッ
# このスレまだあったんだな・・・。 >>31のハッシュに、正規表現を追加したらどうだろうか？
regex => qr/[0-9a-zA-Z]{6,}/ _
|O＼
| ＼ ｷﾘｷﾘ
∧|∧ ＼ ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ ＼
∪ | (~)
∪∪ γ´⌒｀ヽ
） ） {i:i:i:i:i:i:i:i:}
（ （ ( ´･ω･)、
(O ⌒ )O
⊂＿)∪ 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
JETQ9W596N ■ このスレッドは過去ログ倉庫に格納されています
