cgiによる文字入力数の制限について

perlについては素人な者ですが、私の質問をお願いします。
フリーの掲示板cgiを使っていますが、ＩＤネームを決定する際に入力できる文字数の制限がありません。
「未入力」と「全角」を含む場合は、以下の部分でエラーを出せますが、

if ($in{'name'} eq "" || $in{'name'} =~ /[^a-zA-Z0-9]/) {
&error("IDネームを確認してください。");}

この箇所に書き加えて、４文字から１０文字以内といった文字入力数の制限を加えるにはどうしたらよいのでしょうか？
cgiは携帯用なのでJavaScriptは使わない方法で何かあればお願い致します。

No.1 回答者： shimix 回答日時： 2008/02/18 16:32

length()でチェックすればいいのでは？

　　http://perl.misty.ne.jp/function01/length.html

　　if (length($in{'name'}) lt 4 || length($in{'name'}) gt 10) {
&error("4文字以上10文字以内で入力してください");}

＃Perlは滅多に書かないのでtypoがあったらごめんなさい（汗

この回答への補足

早速の回答ありがとうございます。
しかし、実際に書き加えて試したところ4～10文字以内であってもエラー？が出てしまいました。

補足日時：2008/02/18 17:00

No.2 ベストアンサー 回答者： shimix 回答日時： 2008/02/18 20:43

あ、すみません。

数値比較だったですね（汗

　　if (length($in{'name'}) < 4 || length($in{'name'}) > 10) { &error("4文字以上10文字以内で入力してください");}

でいいと思います。

この回答へのお礼

誠に有難うございます。
これで問題となっていたIDネームの文字入力数を制限することができました。
心からお礼申し上げます。

お礼日時：2008/02/19 12:12