# 一个字符串或者其子字符串符合一个正则表描述的特征,则称为匹配。 # 如: # 字符串 "abc" 和正则表 /ab./ 、 /a../ 、 /.../ 均匹配。 # 字符串 "abcd" 和正则表 /b./ 、 /b.d/ 匹配。 # 和是否相等操作符 == 类似, perl 语言提供了是否匹配操作符 =~ m ( 其中 m 可以省略) # 使用格式是: # 表 =~ m/ 正则表 / 或 表 =~ / 正则表 / # 如果表和正则表匹配,则返回真,否则返回假。 # 例: chomp ( $input =
); if ( $input =~ m/\d/ ){ print " 输入字符至少包含 1 个数字 " ; } else { print " 输入字符不包含数字 " ; } # != 意为是否不等于,如不等于,则返回真 # !~ 意为是否不匹配,如不匹配,则返回真 # 例: while ( $input !~ /q/ ){ # 当 $input 匹配 q 时退出循环 print ++ $i , " 次输入 \n" ; chomp ( $input =
); } # 作业:按下面的要求编写代码 #屏幕 提示输入手机号码 # 从键盘接收输入,同时去掉换行符 # 判断输入的是否是手机号码(以 1 开头的 8位 数字),如果是则输出 YES # 如果否,则输出 NO