フォームの入力チェック

いつも参考にさせて頂いています。
Perl初心者です。

フォームの入力チェックを作成したいと思っています。
チェック項目
・会社名　　　　→　空入力でないか、全角入力であるか
・住所　　　　　→　会社名のチェックと同様
・電話番号　　　→　空入力でないか、半角であるか

処理
上の条件を満たさなかった場合は 「全角で入力してください。」や
「電話番号は半角数字で入力してください」 などといった
コメントを付けたページを表示させる。

満たした場合は 「登録しました。」 というようなページを表示。

そこで、入力チェックの条件文を書いたのですが
空入力された場合の条件式がわかりません。
どなたか教えて下さる方がいらっしゃいましたら
宜しくお願いします。

また、入力チェック後のページ切り替えはどのように
行っているのでしょうか？
宜しくお願いします。

#-----社名チェック-----
if ($name =~ /[\xA1-\xFE][\xA1-\xFE]/)
{
$namecheck = "";
}
else
{
$namecheck = "全角入力をして下さい。";
}

#-----住所チェック-----
if ($adr =~ /[\xA1-\xFE][\xA1-\xFE]/)
{
$adrcheck = "";
}
else
{
$adrcheck = "全角入力をして下さい。";
}

#-----電話番号チェック-----
if($tel =~ /^[0-9]+$/)
{
$telcheck = "";
}
else
{
$telcheck = "電話番号は半角数字で入力してください。";
}

※会社名、住所の全角チェックはjcodeでEUC-JPに変換しています。

No.1 回答者： _himajin_ 回答日時： 2008/05/25 17:46

久しく触っていないので結構怪しいですが…

> 空入力された場合の条件式がわかりません。
if (length($string) == 0)
で、どうでしょう？

> 入力チェック後のページ切り替え
ページを切り替えるにはhttpヘッダでlocationを出すとか、<meta http-equiv="refresh" ～～～>を含むhtmlを出力するとか、ページ全体をperlスクリプトから生成するとか、他から読んで吐き出すとか…色々方法はあると思います。
用途にあった方法でやれば良いんじゃないでしょうか。

この回答へのお礼

ありがとうございました。
入力チェックは出来ました。
ページ切り替えの部分については勉強します。
また何かありましたら宜しくお願いします。

お礼日時：2008/05/26 04:44