神奇的perl-正则表达式(2)
声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载1. 匹配
2.1 基础语法
1、 Perl使用正则表达式可实现字符串的查询和匹配。
2、 语法格式(regexp为模式串)：
$字符串变量名=~m/<regexp>/
也可以简写为$字符串变量名=~ /<regexp>/
通常如下使用:
If ($字符串变量名=~m/<regexp>/){
#匹配成功，执行成功后的语句
}
3、示例
#perl4-0.pl
my $name=”zhangsang”;
if ($name=~m/san/){
#匹配成功 print “ok”;
}
很显然, zhangsang是能够匹配的，因此输出为：
ok
2.1 匹配修饰
匹配修饰符在模式定界符之后使用
i ：忽略大小写，如:/abc/i
g ：查找所有匹配值，返回一个匹配到的列表。如：/abc/g
例如：
#perl4-1.pl
my $name="hello!Beijing";
#我们首先使用 i，用大写“LLO”串进行匹配，由于忽略大小写，匹配是成功的。
print "使用 i\n";
if ($name=~m/LLO/i){
#使用i，匹配成功
print "使用 i-ok\n";
}
#使用 g，用“e“进行全局匹配，e 出现了2次，因此返回2个e组成的列表
print "使用 g\n";
my @result=($name=~m/e/g);
print @result;#输出匹配列表数据
print "\n";
print scalar(@result);#返回@result数组大小(全局匹配成功数目)为2
。scalar(@数组变量名)返回数组大小
print "\n";
if ($name=~m/e/g){
#使用g，匹配成功2处
print "使用 g-ok\n";
}
#同时使用 g 和i进行匹配
print "使用 g 和i\n";
if ($name=~m/L/gi){
#使用了g和i匹配成功
print "使用 g 和i-ok\n";
}
输出结果如下:
使用 i
使用 i-ok
使用 g
ee
2
使用 g-ok
使用 g 和i
使用 g 和i-ok
页:
[1]