- 1 名前：nobodyさん [02/07/06 01:56 ID:epfJvWRu]
- 何作るにもだいたい必要だが地味にめんどくさい。
日本語対応の便利な汎用入力チェックモジュール
(まずPerl)を作ろうyo。
- 2 名前： mailto:sage [02/07/06 02:02 ID:???]
- お前、まず自分で作ってからとは思わんのか？
もっともらしいこと書きやがって、このクレクレ野郎がっ！
- 3 名前：nobodyさん mailto:sage [02/07/06 02:03 ID:???]
- Jcode.pm
- 4 名前：nobodyさん [02/07/06 02:17 ID:/HxIldBO]
- まぁ、１の言うことが分からなくもない。
文字数チェックとかだるいもんな。
- 5 名前：nobodyさん mailto:sage [02/07/06 04:49 ID:???]
- >>2
おまえはどのスレでもそうやって、同じ煽りいれてんだな
わからなかったらほっとくのが普通なんだよ。
厨房のおまえは板的に必要ないよ。
カマッテ君が！
- 6 名前：nobodyさん mailto:sage [02/07/06 05:35 ID:???]
- cgi-lib.pl
CGI.pm
- 7 名前：nobodyさん mailto:sage [02/07/06 07:06 ID:???]
- >>1はCPANを知っているのか？
- 8 名前：nobodyさん mailto:sage [02/07/06 07:23 ID:???]
- >>2
こいつは、このスレの 71 じゃないのか？（藁
pc.2ch.net/test/read.cgi/php/1024741312/71-
- 9 名前：1 [02/07/06 13:49 ID:epfJvWRu]
- >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さん mailto:age [02/07/08 23:21 ID:???]
- age
- 11 名前：nobodyさん mailto:sage [02/07/08 23:34 ID:???]
- search.cpan.org/search?dist=CGI-ArgChecker
- 12 名前：1 mailto:sage [02/07/09 02:38 ID:???]
- >>11
ありがとう StringとかCGIの下を探しまくればよかったのね
Checkerとか
だいぶ参考になりました。
とりあえずString::Checkerは利用するか
ほしいとこだけ盗みます。
他のパラメータでエラー条件が変わるとか配列のvalue(チェックボックスとか)はできないっぽい？けどそのへんもうすこし読んでみるyo
こんな方法でやってるけどどーよとかあれば教えてほしいっす。
- 13 名前：nobodyさん [02/11/13 15:51 ID:6XVK1nob]
- CGI::Validate
search.cpan.org/dist/CGI-Validate/
- 14 名前：nobodyさん mailto:sage [02/11/13 18:33 ID:???]
- よく「サーバにモジュールがインスコされていないので使えません」とか言う香具師
がいるけどさ、perlのモジュールなんて多くは単なるテキストなんだから、ホームに
コピーしてuse libすれよゴルァ、と思うんですがどうでっしゃろ。
- 15 名前：sage [02/11/13 19:31 ID:6wplGlzP]
- ~/.cpanにある設定ファイルでインストール先を自分のhome配下に指定して
CPANからいただく。そしてuse lib。
telnetやらでloginできなきゃいけないがの。
- 16 名前：nobodyさん mailto:sage [02/11/13 19:33 ID:???]
- やっちまった。逝きます。
- 17 名前：nobodyさん mailto:sage [02/11/14 05:47 ID:???]
- BEGIN{ push @INC, './lib'}
BEGIN{ unshift @INC, './lib'}
のが好き
- 18 名前：nobodyさん [02/11/24 23:41 ID:nYY6oDGd]
- 結構めんどくさい部分ではあるから
みんなで考えるのもいいかもしれない。
個人的には9のやり方をもう少し煮詰めて
モジュール化できたらいいなーとか思った。
- 19 名前：nobodyさん mailto:sage [02/11/25 15:05 ID:???]
- まとまりなく終了
- 20 名前：nobodyさん [02/11/29 11:20 ID:qCZWTQlc]
- ↑勝手に終わらせるなボケ
- 21 名前：1 [02/11/30 15:26 ID:3PGwc+wR]
- >>18
まだよくみてないけど13のCGI::Validateがそれっぽいのでは
- 22 名前：nobodyさん [02/12/03 02:37 ID:yNGrdCEK]
- 例えばtelnetの使えないレンタルサーバーの場合に、
pure perlならモジュールをFTPでアップして
「use lib」とかすればいいと思うけど、
結構大きなモジュールの場合（例えばDBIとか）
落としてきたtar.gzの中身はファイルやフォルダが
いっぱいあってどれをどのようにUPすれば分からないんだけど。
- 23 名前：nobodyさん [02/12/04 08:29 ID:obM+TZZG]
- README.txtに書いてあるはずだが。
- 24 名前：nobodyさん mailto:age [02/12/04 18:38 ID:???]
- すんません PerlMagickのモジュールを
FreeBSDのサーバで使いたいんですが
ユーザー権限でのみ作業すると
具体的にはどのようにやればいいんでしょうか？
- 25 名前：nobodyさん mailto:sage [02/12/04 22:42 ID:???]
- >>24
管理人さんに頼んでImage::Magickをインストールしてもらう。
これが一番確実。
- 26 名前：nobodyさん [02/12/06 06:29 ID:oIFfImYM]
- >>13
しかし、何時見ても Perl のソースは読みづらい＆使いづらいな。
- 27 名前：nobodyさん mailto:sage [02/12/06 07:33 ID:???]
- >>26
それはperlが悪いわけではなく、プログラマの問題ではござらぬか。
- 28 名前：nobodyさん mailto:sage [02/12/07 00:30 ID:???]
- CGI::Validateつかいづら
- 29 名前：nobodyさん [02/12/07 03:52 ID:NfROD7dM]
- print "hogehoge";
・
・
・
print "hogehoge";
うざっ
- 30 名前：nobodyさん mailto:sage [02/12/07 13:29 ID:???]
- CGI::Validateのサンプル眺めてると、
使わない方がよほどスッキリ書ける気がするのですが電波でしょうか?
- 31 名前：nobodyさん mailto:sage [02/12/07 17:31 ID:???]
- こう書けるの
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さん mailto:sage [02/12/08 10:43 ID:???]
- >my %p = map{$_ => [param($_)]}param()
ReadParse使おうよ。
あ、untiedな配列に入れ直すのが味噌か。
- 33 名前：11=13=33 [02/12/21 20:48 ID:lsUxGFk4]
- Data::CGIForm
search.cpan.org/dist/Data-CGIForm/
なかなかコレというものがないものですね
- 34 名前：nobodyさん mailto:sage [03/11/19 10:16 ID:???]
- ぬ
- 35 名前：ウキグリバの戦士 mailto:sage [2005/04/03(日) 01:57:03 ID:???]
- ぬるぽ
- 36 名前：ウキグリバの戦士 mailto:sage [2005/04/03(日) 02:05:44 ID:???]
- ↑これでラストだ！おめでとう！
- 37 名前：nobodyさん mailto:sage [2005/05/16(月) 16:21:55 ID:???]
- >>35
ガッ
# このスレまだあったんだな・・・。
- 38 名前：nobodyさん mailto:sage [2006/03/17(金) 01:24:09 ID:???]
- .
- 39 名前：nobodyさん [2006/06/25(日) 23:32:13 ID:ApY7Mi3z]
- ぬぽる
- 40 名前：nobodyさん mailto:sage [2006/06/26(月) 04:47:56 ID:???]
- search.cpan.org/perldoc?Data::FormValidator
search.cpan.org/perldoc?FormValidator::Simple
|
 |
