文頭・文末の記号をチェック

質問

お世話になります。

Perlでの正規表現について質問させていただきます。
とあるフォームに入力した値が、特定の条件を満たさない場合に
エラーメッセージを表示させたいのですが、うまくいきません。
以下に条件を記載いたします。

条件
1.　小文字、半角英数字、（一部の）記号で2～32文字以内。
2.　使用できる記号は、ハイフン(-）・アンダーバー(_)・ドット(.)のみ。
3.　上記記号が使用できるのは文中のみで、先頭及び末尾には使用できない。

当方、Perl初心者でして、
解説サイト等から、見よう見まねで試してみたところ、
条件１と２は、何とか成功したのですが、
３の記述の仕方がどうしてもわかりません。
どなたか、おわかりの方がいらっしゃれば
ご教授いただけませんでしょうか。

if($FORM{"account"} ここの記述の仕方がわかりません{
$msg = '文頭・文末に記号を使用する事はできません';
&error;
}

回答No.2

okmotokun · ベストアンサー

unless(/^[0-9A-Z][-\.\w]+[0-9A-Z]$/im){print "ERROR"}

お礼

ご回答いただき、ありがとうございます！

ご回答いただいた書式を、わたくしが添付しておりました書式に当てはめてみたところ、
無事に設定する事ができました！

ただ、なぜあの記述でそうなるかはイマイチ理解できずにいます。
今後も勉強していきたいと思います。
本当にありがとうございます！

回答No.1

Tacosan

逆に「最初や最後にはどんな文字が使えるのか」はわかりますか?

お礼

その後、ANo.2様からいただいた回答を参考に試したところ、
無事に設定する事ができました！
ANo.1様も、ご回答いただきありがとうございました！

補足

ご回答いただき、ありがとうございます！

最初と最後に使える文字は、半角英数小文字のみです。
ハイフン(-）・アンダーバー(_)・ドット(.)は、最初と最後でなければ使用可能です。

よろしくお願い致します。