所谓模式匹配，也就是正则表达式匹配。
在看以下示例之前，需要补充一此关于正则的符号说明。
可以参考：http://www.jb200.com/web/regular/
匹配操作符说明
=~ 表示匹配需要的内容，成功返回true,失败返回false；
!~ 表示不匹配需要的内容，也就是匹配到的话就返回(成功)false,失败返回true
例子，正式匹配邮箱：
复制代码 代码示例:
#!c:perl/bin/perl
#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;
