CGI-BBS > ＣＧＩ > Perl > if文の処理を1000〜9999に変更したいのですが


カレッヂ
カレッヂ


質問者 初心者で申し訳ない  投稿日 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の確認';

#１ページの表示数
$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/</&lt;/g;
	$value =~ s/>/&gt;/g;
	$value =~ s/\n//g;
	$value =~ s/\r//g;
	$value =~ s/\t//g;
	$value =~ s/\,//g;

	#フォーム変数へ
	$FORM{$name} = $value;
}

#入力チェック　　　
#変更したところここから//////////////////////////////////

if ($FORM{'EMAIL'} =~ /(.*)\@(.*)\.(.*)/) { ; } else { &error('入力エラーです','Ｅ-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文について、何をどのようにしたいのかを具体的に書いてください。

----
サポート掲示板利用ご案内の通り、当方はバグと思われる事象以外には参加しません。
ただ、時間が許す場合に例外的に回答する場合がありますが、継続的にやりとりが
出来ない場合があります。ご理解ください。

返信(回答)する

 

Ｗｅｂ裏技