カレッヂ |
質問者 初心者で申し訳ない
投稿日 2006/7/5(水) 23:49:30
#!/usr/bin/perl # # 簡易データベース v2.1 (SJIS) 検索用 # # by www.rescue.ne.jp # [History] # v2.0 13/NOV/1998 ページ機能他 # v2.1 17/DEC/1998 全角文字マッチの不具合の訂正 #---------------------------------------------------------------------------- # このスプリクトは上記スプリクトをアレンジしたものです # search.cgi を point.cgi に名前を変更しています。 # 改造は自由ですが、ネットサーフレスキュー[Web裏技]の利用規程に従ってください # スプリクト利用に際してのいかなる不利益・傷害も責任を負いません #---------------------------------------------------------------------------- #日本語コード処理ライブラリ require './jcode.pl'; #データベースファイル #必ずファイルの名前を変更してください。違うデレクトリにある場合は相対パスで../abc/data.csv $file = "./data.csv"; #<body>設定 $body = '<BODY bgcolor="#ffffff">'; #タイトル $title = 'POINTの確認'; #1ページの表示数 $page = 1; #----------------------------------------------------------------------------------- #■入力 if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } if ($buffer eq "") { &error('エラー','使い方が間違っています.'); } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/, $pair); $name2 = $name; $value2 = $value; $FORM2{$name} = $value; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'euc'); $value =~ s/</</g; $value =~ s/>/>/g; $value =~ s/\n//g; $value =~ s/\r//g; $value =~ s/\t//g; $value =~ s/\,//g; #フォーム変数へ $FORM{$name} = $value; } #入力チェック #変更したところここから////////////////////////////////// if ($FORM{'EMAIL'} =~ /(.*)\@(.*)\.(.*)/) { ; } else { &error('入力エラーです','E-MAILアドレスを入力してください.'); } if ($FORM{'PAS'} eq '') { &error('入力エラーです','パスワードを入力してください.'); } $FORM{'PAS'} =~ s/ //g; $FORM{'PAS'} =~ s/ //g; $FORM{'EMAIL'} =~ s/ //g; $FORM{'EMAIL'} =~ s/ //g; #変更したところここまで//////////////////////////////////
【習熟度】多少の設置経験 |
回答者 rescue
[削除]
投稿日 2006/7/6(木) 10:22:30
「if文の処理を1000〜9999に変更したいのですが」 と書いてありますが、何をしたいのかが分かりません。 どこのif文について、何をどのようにしたいのかを具体的に書いてください。 ---- サポート掲示板利用ご案内の通り、当方はバグと思われる事象以外には参加しません。 ただ、時間が許す場合に例外的に回答する場合がありますが、継続的にやりとりが 出来ない場合があります。ご理解ください。 |
返信(回答)する
Web裏技 |