CGIPerl入力チェック

1 ：nobodyさん：02/07/06 01:56 ID:epfJvWRu.net

何作るにもだいたい必要だが地味にめんどくさい。
日本語対応の便利な汎用入力チェックモジュール
(まずPerl)を作ろうyo。

2 ：　：02/07/06 02:02 ID:???.net

お前、まず自分で作ってからとは思わんのか？
もっともらしいこと書きやがって、このクレクレ野郎がっ！

3 ：nobodyさん：02/07/06 02:03 ID:???.net

Jcode.pm

4 ：nobodyさん：02/07/06 02:17 ID:/HxIldBO.net

まぁ、１の言うことが分からなくもない。
文字数チェックとかだるいもんな。

5 ：nobodyさん：02/07/06 04:49 ID:???.net

>>2
おまえはどのスレでもそうやって、同じ煽りいれてんだな
わからなかったらほっとくのが普通なんだよ。
厨房のおまえは板的に必要ないよ。
カマッテ君が！

6 ：nobodyさん：02/07/06 05:35 ID:???.net

cgi-lib.pl
CGI.pm

7 ：nobodyさん：02/07/06 07:06 ID:???.net

>>1はCPANを知っているのか？

8 ：nobodyさん：02/07/06 07:23 ID:???.net

>>2
こいつは、このスレの 71 じゃないのか？（藁

http://pc.2ch.net/test/read.cgi/php/1024741312/71-

9 ：1：02/07/06 13:49 ID:epfJvWRu.net

>3
jcode.plでよくない？

>6
use CGI ':all';#楽

>7
cpanにこんなモジュールあるかな？
Excel作りたいとか画像いじりたいとかは検索できるけど
何処みたらいいのかわからんのです。

今やってる方法でここのフォーム入力チェック
するとしたらこんな感じ

my @ParamConf=(
{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=>'メッセージ'}
);

こんなハッシュの配列作ってループでname(input name=xxxと同じ)をチェックしてひっかかればdispを使って
「名前 が未記入です」とか日本語エラーメッセージを吐いてやる。

メアドとか正規表現でチェックしたいのはコード参照付けといて専用のサブルーチンにわたしてチェックさせる。
でも、これだとメールアドレスを確認用にもう一度入力など
複数のパラメータを見てエラー判定する場合は使えなくて
その場しのぎのif文付け足して対応してる現状です。

10 ：nobodyさん：02/07/08 23:21 ID:???.net

age

11 ：nobodyさん：02/07/08 23:34 ID:???.net

http://search.cpan.org/search?dist=CGI-ArgChecker

12 ：1：02/07/09 02:38 ID:???.net

>>11
ありがとう StringとかCGIの下を探しまくればよかったのね
Checkerとか
だいぶ参考になりました。
とりあえずString::Checkerは利用するか
ほしいとこだけ盗みます。

他のパラメータでエラー条件が変わるとか配列のvalue(チェックボックスとか)はできないっぽい？けどそのへんもうすこし読んでみるyo
こんな方法でやってるけどどーよとかあれば教えてほしいっす。

13 ：nobodyさん：02/11/13 15:51 ID:6XVK1nob.net

CGI::Validate
http://search.cpan.org/dist/CGI-Validate/

14 ：nobodyさん：02/11/13 18:33 ID:???.net

よく「サーバにモジュールがインスコされていないので使えません」とか言う香具師
がいるけどさ、perlのモジュールなんて多くは単なるテキストなんだから、ホームに
コピーしてuse libすれよゴルァ、と思うんですがどうでっしゃろ。

15 ：sage：02/11/13 19:31 ID:6wplGlzP.net

~/.cpanにある設定ファイルでインストール先を自分のhome配下に指定して
CPANからいただく。そしてuse lib。
telnetやらでloginできなきゃいけないがの。

16 ：nobodyさん：02/11/13 19:33 ID:???.net

やっちまった。逝きます。

17 ：nobodyさん：02/11/14 05:47 ID:???.net

BEGIN{ push @INC, './lib'}
BEGIN{ unshift @INC, './lib'}
のが好き

18 ：nobodyさん：02/11/24 23:41 ID:nYY6oDGd.net

結構めんどくさい部分ではあるから
みんなで考えるのもいいかもしれない。
個人的には9のやり方をもう少し煮詰めて
モジュール化できたらいいなーとか思った。

19 ：nobodyさん：02/11/25 15:05 ID:???.net

まとまりなく終了

20 ：nobodyさん：02/11/29 11:20 ID:qCZWTQlc.net

↑勝手に終わらせるなボケ

21 ：1：02/11/30 15:26 ID:3PGwc+wR.net

>>18
まだよくみてないけど13のCGI::Validateがそれっぽいのでは

22 ：nobodyさん：02/12/03 02:37 ID:yNGrdCEK.net

例えばtelnetの使えないレンタルサーバーの場合に、
pure perlならモジュールをFTPでアップして
「use lib」とかすればいいと思うけど、
結構大きなモジュールの場合（例えばDBIとか）
落としてきたtar.gzの中身はファイルやフォルダが
いっぱいあってどれをどのようにUPすれば分からないんだけど。

23 ：nobodyさん：02/12/04 08:29 ID:obM+TZZG.net

README.txtに書いてあるはずだが。

24 ：nobodyさん：02/12/04 18:38 ID:???.net

すんません　PerlMagickのモジュールを
FreeBSDのサーバで使いたいんですが
ユーザー権限でのみ作業すると
具体的にはどのようにやればいいんでしょうか？

25 ：nobodyさん：02/12/04 22:42 ID:???.net

>>24
管理人さんに頼んでImage::Magickをインストールしてもらう。

これが一番確実。

26 ：nobodyさん：02/12/06 06:29 ID:oIFfImYM.net

>>13

しかし、何時見ても Perl のソースは読みづらい＆使いづらいな。

27 ：nobodyさん：02/12/06 07:33 ID:???.net

>>26
それはperlが悪いわけではなく、プログラマの問題ではござらぬか。

28 ：nobodyさん：02/12/07 00:30 ID:???.net

CGI::Validateつかいづら

29 ：nobodyさん：02/12/07 03:52 ID:NfROD7dM.net

print "hogehoge";
　　・
　　・
　　・
print "hogehoge";

うざっ

30 ：nobodyさん：02/12/07 13:29 ID:???.net

CGI::Validateのサンプル眺めてると、
使わない方がよほどスッキリ書ける気がするのですが電波でしょうか?

31 ：nobodyさん：02/12/07 17:31 ID:???.net

こう書けるの

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;

つくろう。

32 ：nobodyさん：02/12/08 10:43 ID:???.net

>my %p = map{$_ => [param($_)]}param()

ReadParse使おうよ。
あ、untiedな配列に入れ直すのが味噌か。

33 ：11=13=33：02/12/21 20:48 ID:lsUxGFk4.net

Data::CGIForm
http://search.cpan.org/dist/Data-CGIForm/

なかなかコレというものがないものですね

34 ：nobodyさん：03/11/19 10:16 ID:???.net

ぬ

35 ：ウキグリバの戦士：2005/04/03(日) 01:57:03 ID:???.net

ぬるぽ

36 ：ウキグリバの戦士：2005/04/03(日) 02:05:44 ID:???.net

↑これでラストだ！おめでとう！

37 ：nobodyさん：2005/05/16(月) 16:21:55 ID:???.net

>>35
ガッ

# このスレまだあったんだな・・・。

38 ：nobodyさん：2006/03/17(金) 01:24:09 ID:???.net

.

39 ：nobodyさん：2006/06/25(日) 23:32:13 ID:ApY7Mi3z.net

ぬぽる

40 ：nobodyさん：2006/06/26(月) 04:47:56 ID:???.net

http://search.cpan.org/perldoc?Data::FormValidator
http://search.cpan.org/perldoc?FormValidator::Simple

41 ：nobodyさん：2008/08/21(木) 11:31:34 ID:jfZH+CbL.net

>>31のハッシュに、正規表現を追加したらどうだろうか？

regex => qr/[0-9a-zA-Z]{6,}/

42 ：nobodyさん：2008/08/21(木) 13:36:07 ID:???.net

>>41
小学校分の亀レス乙。

43 ：電脳プリオン：2011/12/11(日) 22:26:19.67 ID:???.net ?2BP(1960)

Perlの次は？

44 ：nobodyさん：2013/03/27(水) 21:43:52.61 ID:IuHY8fTv.net

　　　　　 _
　　　　　 |O＼
　　　　　 |　　 ＼　ｷﾘｷﾘ
　　　　∧|∧ 　　＼　ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ　　　 ＼
　　　　∪　　|　　 　　(~)
　　　　　∪∪　　 γ´⌒｀ヽ
　　　　　）　）　　 　{i:i:i:i:i:i:i:i:}
　　　　 （　（　　　　(　´･ω･)、
　　　　　　　　　　　(O ⌒　)O
　　　　　　　　 　 　⊂＿)∪

45 ：nobodyさん：2023/07/03(月) 02:40:07.78 ID:C88c2Ztkp

防衛名目の軍拡利権．少孑化名目の私利私欲利権、旅行支援名目の気候変動災害連発騷音私権侵害の強盗殺人利権による白々しい増税の数々
安全保障を取り巻く状況とか何も変わってないし、原爆使ってみたかった某ならず者国家はWW2て゛曰本に先制攻撃させる工作してたわけだか゛，
キチガヰナゼレンスキ―と共謀してのロシア攻撃と同じ手法て゛、台湾ついて゛に曰本も巻き込んて゛自民公明と共謀してクソシナ攻撃したいた゛けな
貧乏人か゛孑供なんて作ったら遺棄罪で逮捕するのか゛筋た゛ろうに，孑供給付とか子や嫁と得た効用の対価を赤の他人から奪い取る不当利得だわな
他人の子を連れ込んて゛育てる行為を推進するとか，乱交推進して誰の孑か分からなくするとかしないと、憲法の下の平等なんて確保できんた゛ろ
小池デ夕ラメ百合孑なんて私立に行かせてる金持ちの親に毎年１Ｏ萬くれてやるとか．税金で個人の資産形成させるなら税金泥棒公務員利権の
ナマポやら廃止して給付付き税額控除とかやるのか゛筋だろ，つか風俗で働いて子育てしてる自立した女はいくらて゛もいるだろうに、そんな女と
陳情寄生蟲女と．温室効果ガスに騒音にコ□ナにとまき散らして人殺して他人の権利を強奪して儲けてる強盜殺人女とクズっぷり比較してみろ

創価学會員は，何百万人も殺傷して損害を与えて私腹を肥やし続けて逮捕者まで出てる世界最惡の殺人腐敗組織公明党を
池田センセ一が囗をきけて容認するとか本気で思ってるとしたら侮辱にもほどか゛あるぞ！
ｈтТＰｓ：／／ｉ．ｉｍｇｕｒ，ｃｏｍ／hnli1ga.jpeg