perl模式匹配的简单例子
所谓模式匹配，也就是正则表达式匹配。
在看以下示例之前，需要补充一此关于正则的符号说明。
可以参考：http://www.jquerycn.cn/web/regular/
匹配操作符说明
=~ 表示匹配需要的内容，成功返回true,失败返回false；
!~ 表示不匹配需要的内容，也就是匹配到的话就返回(成功)false,失败返回true
例子，正式匹配邮箱：
#my $str = '81438117@qq.com';
#my $str = 'lkyqq2514.student@sina.com.cn';
#my $str = 'yuan_lk@163.com';
my $str = 'yuan-lk@163.com';
if($str =~ /^([a-zA-Z0-9-_\.])*.@.([a-zA-Z0-9])+\.[a-z]{2,3}(\.[a-z]{2})?$/)
{
print('true');
}
else
{
print('false');
}
exit;
您可能感兴趣的文章：
perl模式匹配的简单例子
MySQL 正则表达式
使用Perl常规表达式进行匹配
PHP中正则表达式模式修饰符详解
有关匹配中文的正则(GB2312/utf-8)介绍
Perl 正则表达式
正则表达式基本函数 修饰符 元字符和需转义字
shell 正则表达式(BREs,EREs,PREs)的差异比较
正则表达式二
php 正则表达式(Regular Expression)用法