perl模式匹配的简单例子
发布时间：2014-08-15 编辑：jiaochengji.com
本文介绍下，perl编程中模式匹配的一个例子，学习下perl中使用正则表达式进行匹配的方法，有需要的朋友参考下。
所谓模式匹配，也就是正则表达式匹配。
在看以下示例之前，需要补充一此关于正则的符号说明。
可以参考：http://www.jiaochengji.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;
#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模式匹配的简单例子
使用Perl常规表达式进行匹配
有关匹配中文的正则(GB2312/utf-8)介绍
PHP中正则表达式模式修饰符详解
shell 正则表达式(BREs,EREs,PREs)的差异比较
正则表达式基本函数 修饰符 元字符和需转义字
正则表达式二
php 正则表达式(Regular Expression)用法
Javascript正则表达式详解（一）
php正则表达式完全教程四
上一篇：perl实例之子程序
下一篇：perl实例之http请求的小例子
[关闭]