foreach $oneword (@reserves) {
if( $userinput =~ m/$oneword/i ) {
# 一致したモノがあれば
print "システム予約文字が含まれています。\n";
last;
}
}
if( $userinput =~ m/^$oneword$/i ) {
にししの Perl/CGI Tips ふぁくとりー TOPへ戻る
このページに記載の内容は、必ずしも正しいとは限りません。ご注意下さい。
製作者にししへのご連絡は、メールなどでお送り下さい。
どのページへもリンクは歓迎します。
Copyright © 2004-2006 Fumihiro Nishimura.(Nishishi) All rights reserved.
これで上記のコードを実行すれば、ユーザからの入力文字列にシステム予約文字が含まれていれば、「システム予約文字が含まれています。」と表示されます。
※上記の場合、大文字・小文字を区別しません。区別させたい場合は、正規表現「
m/$oneword/i
」末尾の「 i 」を削除します。